home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-12-30 | 28.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 17 f4 20 62 | 79 20 52 2e 20 54 68 6f |e..... b|y R. Tho|
|00000020| 72 6e 62 75 72 72 6f 77 | 0d 00 1e 46 f4 20 54 68 |rnburrow|...F. Th|
|00000030| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 50 55 |is progr|am is PU|
|00000040| 42 4c 49 43 20 44 4f 4d | 41 49 4e 2e 20 20 41 4c |BLIC DOM|AIN. AL|
|00000050| 4c 20 69 74 73 20 61 73 | 73 6f 63 69 61 74 65 64 |L its as|sociated|
|00000060| 20 66 69 6c 65 73 20 4d | 55 53 54 20 62 65 0d 00 | files M|UST be..|
|00000070| 28 35 f4 20 69 63 6e 63 | 6c 75 64 65 64 20 77 69 |(5. icnc|luded wi|
|00000080| 74 68 20 69 74 2e 20 20 | 52 65 6c 65 61 73 65 20 |th it. |Release |
|00000090| 64 61 74 65 20 32 35 74 | 68 20 4a 75 6c 79 20 31 |date 25t|h July 1|
|000000a0| 39 39 31 0d 00 32 0c 64 | 65 62 75 67 25 3d b9 0d |991..2.d|ebug%=..|
|000000b0| 00 3c 06 eb 30 0d 00 46 | 12 ee 20 85 20 f2 73 79 |.<..0..F|.. . .sy|
|000000c0| 73 5f 65 72 72 6f 72 0d | 00 50 0e ef 31 39 2c 30 |s_error.|.P..19,0|
|000000d0| 2c 34 3b 30 3b 0d 00 5a | 09 f2 69 6e 69 74 0d 00 |,4;0;..Z|..init..|
|000000e0| 64 12 ee 20 85 20 f2 73 | 79 73 5f 65 72 72 6f 72 |d.. . .s|ys_error|
|000000f0| 0d 00 6e 05 f5 0d 00 78 | 0d f2 6d 61 69 6e 6d 65 |..n....x|..mainme|
|00000100| 6e 75 0d 00 82 0b fd 20 | 71 75 69 74 25 0d 00 8c |nu..... |quit%...|
|00000110| 06 eb 30 0d 00 96 08 2a | 46 58 34 0d 00 a0 05 e0 |..0....*|FX4.....|
|00000120| 0d 00 aa 05 3a 0d 00 b4 | 0a dd f2 69 6e 69 74 0d |....:...|...init.|
|00000130| 00 be 12 f2 67 65 74 5f | 63 6f 6e 66 69 67 75 72 |....get_|configur|
|00000140| 65 0d 00 c8 2b de 20 73 | 74 6f 72 65 64 5f 66 75 |e...+. s|tored_fu|
|00000150| 6e 63 24 28 6d 61 78 29 | 2c 73 74 6f 72 65 64 5f |nc$(max)|,stored_|
|00000160| 62 61 73 69 63 76 24 28 | 6d 61 78 29 0d 00 d2 27 |basicv$(|max)...'|
|00000170| de 20 73 74 6f 72 65 64 | 5f 78 6d 69 6e 28 6d 61 |. stored|_xmin(ma|
|00000180| 78 29 2c 73 74 6f 72 65 | 64 5f 78 6d 61 78 28 6d |x),store|d_xmax(m|
|00000190| 61 78 29 0d 00 dc 27 de | 20 73 74 6f 72 65 64 5f |ax)...'.| stored_|
|000001a0| 79 6d 69 6e 28 6d 61 78 | 29 2c 73 74 6f 72 65 64 |ymin(max|),stored|
|000001b0| 5f 79 6d 61 78 28 6d 61 | 78 29 0d 00 e6 15 de 20 |_ymax(ma|x)..... |
|000001c0| 66 72 65 65 5f 73 70 61 | 63 65 28 6d 61 78 29 0d |free_spa|ce(max).|
|000001d0| 00 f0 2d de 20 66 75 6e | 63 24 28 31 30 29 2c 62 |..-. fun|c$(10),b|
|000001e0| 61 73 69 63 76 24 28 31 | 30 29 2c 78 6d 69 6e 28 |asicv$(1|0),xmin(|
|000001f0| 31 30 29 2c 78 6d 61 78 | 28 31 30 29 0d 00 fa 17 |10),xmax|(10)....|
|00000200| de 20 79 6d 69 6e 28 31 | 30 29 2c 79 6d 61 78 28 |. ymin(1|0),ymax(|
|00000210| 31 30 29 0d 01 04 29 71 | 75 69 74 25 3d a3 3a 66 |10)...)q|uit%=.:f|
|00000220| 75 6e 63 74 69 6f 6e 25 | 3d 30 3a 73 74 6f 72 65 |unction%|=0:store|
|00000230| 64 25 3d 30 3a 40 25 3d | 26 34 30 41 0d 01 0e 72 |d%=0:@%=|&40A...r|
|00000240| 72 61 64 25 3d a3 3a 41 | 3d 31 3a 42 3d 31 3a 43 |rad%=.:A|=1:B=1:C|
|00000250| 3d 31 3a 44 3d 31 3a 45 | 3d 31 3a 46 3d 31 3a 47 |=1:D=1:E|=1:F=1:G|
|00000260| 3d 31 3a 48 3d 31 3a 49 | 3d 31 3a 4a 3d 31 3a 4b |=1:H=1:I|=1:J=1:K|
|00000270| 3d 31 3a 4c 3d 31 3a 4d | 3d 31 3a 4e 3d 31 3a 4f |=1:L=1:M|=1:N=1:O|
|00000280| 3d 31 3a 50 3d 31 3a 51 | 3d 31 3a 52 3d 31 3a 53 |=1:P=1:Q|=1:R=1:S|
|00000290| 3d 31 3a 54 3d 31 3a 55 | 3d 31 3a 56 3d 31 3a 57 |=1:T=1:U|=1:V=1:W|
|000002a0| 3d 31 3a 58 3d 30 3a 59 | 3d 30 3a 5a 3d 31 0d 01 |=1:X=0:Y|=0:Z=1..|
|000002b0| 18 1c f2 6c 6f 61 64 28 | 64 65 66 61 75 6c 74 5f |...load(|default_|
|000002c0| 64 61 74 61 62 61 73 65 | 24 29 0d 01 22 0f f2 63 |database|$).."..c|
|000002d0| 68 61 72 61 63 74 65 72 | 73 0d 01 2c 2e e7 20 73 |haracter|s..,.. s|
|000002e0| 63 72 65 65 6e 5f 70 72 | 6f 67 24 3c 3e 22 3c 4e |creen_pr|og$<>"<N|
|000002f0| 4f 4e 45 3e 22 20 8c 20 | ff 28 73 63 72 65 65 6e |ONE>" . |.(screen|
|00000300| 5f 70 72 6f 67 24 29 0d | 01 36 0a 2a 46 58 34 2c |_prog$).|.6.*FX4,|
|00000310| 31 0d 01 40 05 e1 0d 01 | 4a 05 3a 0d 01 54 13 dd |1..@....|J.:..T..|
|00000320| f2 67 65 74 5f 63 6f 6e | 66 69 67 75 72 65 0d 01 |.get_con|figure..|
|00000330| 5e 08 ea 20 46 25 0d 01 | 68 29 f2 62 75 69 6c 64 |^.. F%..|h).build|
|00000340| 5f 63 6f 6e 66 69 67 75 | 72 65 3a 46 25 3d a4 6f |_configu|re:F%=.o|
|00000350| 70 65 6e 69 6e 28 22 43 | 4f 4e 46 49 47 22 29 0d |penin("C|ONFIG").|
|00000360| 01 72 2f e7 20 46 25 3d | 30 20 f2 73 61 76 65 5f |.r/. F%=|0 .save_|
|00000370| 63 6f 6e 66 69 67 75 72 | 65 3a 46 25 3d a4 6f 70 |configur|e:F%=.op|
|00000380| 65 6e 69 6e 28 22 43 4f | 4e 46 49 47 22 29 0d 01 |enin("CO|NFIG")..|
|00000390| 7c 16 e7 20 46 25 3d 30 | 20 f2 65 72 72 6f 72 28 ||.. F%=0| .error(|
|000003a0| 32 29 3a e1 0d 01 86 1a | e8 23 46 25 2c 64 65 66 |2):.....|.#F%,def|
|000003b0| 61 75 6c 74 5f 64 61 74 | 61 62 61 73 65 24 0d 01 |ault_dat|abase$..|
|000003c0| 90 15 e8 23 46 25 2c 73 | 63 72 65 65 6e 5f 64 75 |...#F%,s|creen_du|
|000003d0| 6d 70 24 0d 01 9a 15 e8 | 23 46 25 2c 73 63 72 65 |mp$.....|#F%,scre|
|000003e0| 65 6e 5f 70 72 6f 67 24 | 0d 01 a4 18 e8 23 46 25 |en_prog$|.....#F%|
|000003f0| 2c 72 6f 6f 74 5f 64 69 | 72 65 63 74 6f 72 79 24 |,root_di|rectory$|
|00000400| 0d 01 ae 10 e8 23 46 25 | 2c 70 6f 69 6e 74 73 25 |.....#F%|,points%|
|00000410| 0d 01 b8 16 e8 23 46 25 | 2c 63 6f 6e 66 69 67 75 |.....#F%|,configu|
|00000420| 72 65 5f 6f 6b 25 0d 01 | c2 0c e8 23 46 25 2c 6d |re_ok%..|...#F%,m|
|00000430| 61 78 0d 01 cc 11 e8 23 | 46 25 2c 70 72 69 6e 74 |ax.....#|F%,print|
|00000440| 65 72 25 0d 01 d6 0f e8 | 23 46 25 2c 6f 73 5f 6f |er%.....|#F%,os_o|
|00000450| 6b 25 0d 01 e0 15 e8 23 | 46 25 2c 63 6f 6e 66 69 |k%.....#|F%,confi|
|00000460| 67 5f 70 61 73 73 24 0d | 01 ea 08 d9 23 46 25 0d |g_pass$.|....#F%.|
|00000470| 01 f4 05 e1 0d 01 fe 05 | 3a 0d 02 08 13 dd a4 6f |........|:......o|
|00000480| 70 65 6e 69 6e 28 66 69 | 6c 65 24 29 0d 02 12 38 |penin(fi|le$)...8|
|00000490| e7 20 63 6f 6d 70 75 74 | 65 72 24 3d 22 4e 49 4d |. comput|er$="NIM|
|000004a0| 42 55 53 22 20 8c 20 3d | 8e 28 72 6f 6f 74 5f 64 |BUS" . =|.(root_d|
|000004b0| 69 72 65 63 74 6f 72 79 | 24 2b 22 5c 22 2b 66 69 |irectory|$+"\"+fi|
|000004c0| 6c 65 24 29 0d 02 1c 21 | 3d 8e 28 72 6f 6f 74 5f |le$)...!|=.(root_|
|000004d0| 64 69 72 65 63 74 6f 72 | 79 24 2b 22 2e 22 2b 66 |director|y$+"."+f|
|000004e0| 69 6c 65 24 29 0d 02 26 | 05 3a 0d 02 30 14 dd a4 |ile$)..&|.:..0...|
|000004f0| 6f 70 65 6e 6f 75 74 28 | 66 69 6c 65 24 29 0d 02 |openout(|file$)..|
|00000500| 3a 38 e7 20 63 6f 6d 70 | 75 74 65 72 24 3d 22 4e |:8. comp|uter$="N|
|00000510| 49 4d 42 55 53 22 20 8c | 20 3d ae 28 72 6f 6f 74 |IMBUS" .| =.(root|
|00000520| 5f 64 69 72 65 63 74 6f | 72 79 24 2b 22 5c 22 2b |_directo|ry$+"\"+|
|00000530| 66 69 6c 65 24 29 0d 02 | 44 21 3d ae 28 72 6f 6f |file$)..|D!=.(roo|
|00000540| 74 5f 64 69 72 65 63 74 | 6f 72 79 24 2b 22 2e 22 |t_direct|ory$+"."|
|00000550| 2b 66 69 6c 65 24 29 0d | 02 4e 05 3a 0d 02 58 0e |+file$).|.N.:..X.|
|00000560| dd a4 63 6f 6d 70 75 74 | 65 72 0d 02 62 10 63 6f |..comput|er..b.co|
|00000570| 6d 70 3d a6 28 2d 32 35 | 36 29 0d 02 6c 34 f4 20 |mp=.(-25|6)..l4. |
|00000580| 20 52 49 53 43 4f 53 20 | 32 2e 30 30 2c 20 32 2e | RISCOS |2.00, 2.|
|00000590| 31 30 2c 20 33 2e 30 30 | 20 41 4e 44 20 33 2e 31 |10, 3.00| AND 3.1|
|000005a0| 30 20 72 65 73 70 65 63 | 74 69 76 65 6c 79 0d 02 |0 respec|tively..|
|000005b0| 76 38 e7 20 63 6f 6d 70 | 3d 31 36 31 20 84 20 63 |v8. comp|=161 . c|
|000005c0| 6f 6d 70 3d 31 36 32 20 | 84 20 63 6f 6d 70 3d 31 |omp=162 |. comp=1|
|000005d0| 36 33 20 84 20 63 6f 6d | 70 3d 31 36 34 20 8c 20 |63 . com|p=164 . |
|000005e0| 3d 22 41 52 43 22 0d 02 | 80 18 e7 20 63 6f 6d 70 |="ARC"..|... comp|
|000005f0| 3d 30 20 8c 20 3d 22 4e | 49 4d 42 55 53 22 0d 02 |=0 . ="N|IMBUS"..|
|00000600| 8a 05 db 0d 02 94 24 f1 | 8a 30 2c 31 30 29 20 22 |......$.|.0,10) "|
|00000610| 57 68 69 63 68 20 69 73 | 20 79 6f 75 72 20 6d 61 |Which is| your ma|
|00000620| 63 68 69 6e 65 3a 22 0d | 02 9e 1c f1 8a 35 2c 31 |chine:".|.....5,1|
|00000630| 32 29 20 22 31 2e 2e 2e | 41 72 63 68 69 6d 65 64 |2) "1...|Archimed|
|00000640| 65 73 22 0d 02 a8 17 f1 | 8a 35 2c 31 33 29 20 22 |es".....|.5,13) "|
|00000650| 32 2e 2e 2e 4f 74 68 65 | 72 22 0d 02 b2 05 f5 0d |2...Othe|r"......|
|00000660| 02 bc 0f f1 8a 30 2c 31 | 35 29 20 89 32 30 0d 02 |.....0,1|5) .20..|
|00000670| c6 23 e8 8a 30 2c 31 35 | 29 20 22 45 6e 74 65 72 |.#..0,15|) "Enter|
|00000680| 20 28 31 2f 32 29 3a 20 | 22 6d 61 63 68 69 6e 65 | (1/2): |"machine|
|00000690| 24 0d 02 d0 24 fd 20 a7 | 22 31 32 22 2c 6d 61 63 |$...$. .|"12",mac|
|000006a0| 68 69 6e 65 24 29 20 80 | 20 6d 61 63 68 69 6e 65 |hine$) .| machine|
|000006b0| 24 3c 3e 22 22 0d 02 da | 38 e7 20 6d 61 63 68 69 |$<>""...|8. machi|
|000006c0| 6e 65 24 3d 22 31 22 20 | 8c 20 3d 22 41 52 43 22 |ne$="1" |. ="ARC"|
|000006d0| 3a f4 20 61 73 73 75 6d | 65 20 73 61 6d 65 20 61 |:. assum|e same a|
|000006e0| 73 20 41 33 31 30 2c 20 | 41 35 30 30 30 0d 02 e4 |s A310, |A5000...|
|000006f0| 0a 3d 22 42 42 43 22 0d | 02 ee 05 3a 0d 02 f8 15 |.="BBC".|...:....|
|00000700| dd f2 62 75 69 6c 64 5f | 63 6f 6e 66 69 67 75 72 |..build_|configur|
|00000710| 65 0d 03 02 1f f4 20 79 | 6f 75 20 63 61 6e 20 61 |e..... y|ou can a|
|00000720| 6c 74 65 72 20 74 68 65 | 73 65 20 6c 69 6e 65 73 |lter the|se lines|
|00000730| 0d 03 0c 1c 63 6f 6e 66 | 69 67 5f 70 61 73 73 24 |....conf|ig_pass$|
|00000740| 3d 22 43 4f 4e 46 49 47 | 55 52 45 22 0d 03 16 17 |="CONFIG|URE"....|
|00000750| 63 6f 6d 70 75 74 65 72 | 24 3d a4 63 6f 6d 70 75 |computer|$=.compu|
|00000760| 74 65 72 0d 03 20 49 f4 | 20 4d 53 2d 44 4f 53 20 |ter.. I.| MS-DOS |
|00000770| 75 73 65 72 73 20 61 6c | 74 65 72 20 6e 65 78 74 |users al|ter next|
|00000780| 20 6c 69 6e 65 20 74 6f | 20 64 61 74 61 20 64 72 | line to| data dr|
|00000790| 69 76 65 20 28 6d 75 73 | 74 20 68 61 76 65 20 77 |ive (mus|t have w|
|000007a0| 72 69 74 65 20 61 63 63 | 65 73 73 29 0d 03 2a 2f |rite acc|ess)..*/|
|000007b0| e7 20 63 6f 6d 70 75 74 | 65 72 24 3d 22 4e 49 4d |. comput|er$="NIM|
|000007c0| 42 55 53 22 20 8c 20 72 | 6f 6f 74 5f 64 69 72 65 |BUS" . r|oot_dire|
|000007d0| 63 74 6f 72 79 24 3d 22 | 4e 3a 22 0d 03 34 3e e7 |ctory$="|N:"..4>.|
|000007e0| 20 63 6f 6d 70 75 74 65 | 72 24 3d 22 41 52 43 22 | compute|r$="ARC"|
|000007f0| 20 8c 20 72 6f 6f 74 5f | 64 69 72 65 63 74 6f 72 | . root_|director|
|00000800| 79 24 3d 22 3c 4f 62 65 | 79 24 44 69 72 3e 22 3a |y$="<Obe|y$Dir>":|
|00000810| ff 22 4b 65 79 30 20 2a | 22 0d 03 3e 2b e7 20 63 |."Key0 *|"..>+. c|
|00000820| 6f 6d 70 75 74 65 72 24 | 3d 22 42 42 43 22 20 8c |omputer$|="BBC" .|
|00000830| 20 72 6f 6f 74 5f 64 69 | 72 65 63 74 6f 72 79 24 | root_di|rectory$|
|00000840| 3d 22 24 22 0d 03 48 4b | f4 20 54 68 65 73 65 20 |="$"..HK|. These |
|00000850| 76 61 6c 75 65 73 20 61 | 72 65 20 64 65 66 61 75 |values a|re defau|
|00000860| 6c 74 2c 20 74 68 65 79 | 20 63 61 6e 20 62 65 20 |lt, they| can be |
|00000870| 61 6c 74 65 72 65 64 20 | 66 72 6f 6d 20 63 6f 6e |altered |from con|
|00000880| 66 69 67 75 72 61 74 69 | 6f 6e 20 6d 65 6e 75 0d |figurati|on menu.|
|00000890| 03 52 1e 64 65 66 61 75 | 6c 74 5f 64 61 74 61 62 |.R.defau|lt_datab|
|000008a0| 61 73 65 24 3d 22 3c 4e | 4f 4e 45 3e 22 0d 03 5c |ase$="<N|ONE>"..\|
|000008b0| 2f 73 63 72 65 65 6e 5f | 64 75 6d 70 24 3d 22 3c |/screen_|dump$="<|
|000008c0| 4e 4f 4e 45 3e 22 3a 73 | 63 72 65 65 6e 5f 70 72 |NONE>":s|creen_pr|
|000008d0| 6f 67 24 3d 22 3c 4e 4f | 4e 45 3e 22 0d 03 66 13 |og$="<NO|NE>"..f.|
|000008e0| 63 6f 6e 66 69 67 75 72 | 65 5f 6f 6b 25 3d a3 0d |configur|e_ok%=..|
|000008f0| 03 70 18 6d 61 78 3d 31 | 30 30 3a 70 6f 69 6e 74 |.p.max=1|00:point|
|00000900| 73 25 3d 31 30 30 30 0d | 03 7a 0e 70 72 69 6e 74 |s%=1000.|.z.print|
|00000910| 65 72 25 3d b9 0d 03 84 | 0c 6f 73 5f 6f 6b 25 3d |er%=....|.os_ok%=|
|00000920| a3 0d 03 8e 05 e1 0d 03 | 98 05 3a 0d 03 a2 14 dd |........|..:.....|
|00000930| f2 73 61 76 65 5f 63 6f | 6e 66 69 67 75 72 65 0d |.save_co|nfigure.|
|00000940| 03 ac 08 ea 20 46 25 0d | 03 b6 19 46 25 3d a4 6f |.... F%.|...F%=.o|
|00000950| 70 65 6e 6f 75 74 28 22 | 43 4f 4e 46 49 47 22 29 |penout("|CONFIG")|
|00000960| 0d 03 c0 16 e7 20 46 25 | 3d 30 20 f2 65 72 72 6f |..... F%|=0 .erro|
|00000970| 72 28 31 29 3a e1 0d 03 | ca 1a f1 23 46 25 2c 64 |r(1):...|...#F%,d|
|00000980| 65 66 61 75 6c 74 5f 64 | 61 74 61 62 61 73 65 24 |efault_d|atabase$|
|00000990| 0d 03 d4 15 f1 23 46 25 | 2c 73 63 72 65 65 6e 5f |.....#F%|,screen_|
|000009a0| 64 75 6d 70 24 0d 03 de | 15 f1 23 46 25 2c 73 63 |dump$...|..#F%,sc|
|000009b0| 72 65 65 6e 5f 70 72 6f | 67 24 0d 03 e8 18 f1 23 |reen_pro|g$.....#|
|000009c0| 46 25 2c 72 6f 6f 74 5f | 64 69 72 65 63 74 6f 72 |F%,root_|director|
|000009d0| 79 24 0d 03 f2 10 f1 23 | 46 25 2c 70 6f 69 6e 74 |y$.....#|F%,point|
|000009e0| 73 25 0d 03 fc 16 f1 23 | 46 25 2c 63 6f 6e 66 69 |s%.....#|F%,confi|
|000009f0| 67 75 72 65 5f 6f 6b 25 | 0d 04 06 0c f1 23 46 25 |gure_ok%|.....#F%|
|00000a00| 2c 6d 61 78 0d 04 10 11 | f1 23 46 25 2c 70 72 69 |,max....|.#F%,pri|
|00000a10| 6e 74 65 72 25 0d 04 1a | 0f f1 23 46 25 2c 6f 73 |nter%...|..#F%,os|
|00000a20| 5f 6f 6b 25 0d 04 24 15 | f1 23 46 25 2c 63 6f 6e |_ok%..$.|.#F%,con|
|00000a30| 66 69 67 5f 70 61 73 73 | 24 0d 04 2e 08 d9 23 46 |fig_pass|$.....#F|
|00000a40| 25 0d 04 38 05 e1 0d 04 | 42 05 3a 0d 04 4c 11 dd |%..8....|B.:..L..|
|00000a50| f2 6c 6f 61 64 28 66 69 | 6c 65 24 29 0d 04 56 0a |.load(fi|le$)..V.|
|00000a60| ea 20 46 25 2c 6e 0d 04 | 60 21 e7 20 66 69 6c 65 |. F%,n..|`!. file|
|00000a70| 24 3d 22 22 20 84 20 66 | 69 6c 65 24 3d 22 3c 4e |$="" . f|ile$="<N|
|00000a80| 4f 4e 45 3e 22 20 e1 0d | 04 6a 13 f4 20 6c 6f 61 |ONE>" ..|.j.. loa|
|00000a90| 64 20 64 61 74 61 62 61 | 73 65 0d 04 74 15 46 25 |d databa|se..t.F%|
|00000aa0| 3d a4 6f 70 65 6e 69 6e | 28 66 69 6c 65 24 29 0d |=.openin|(file$).|
|00000ab0| 04 7e 16 e7 20 46 25 3d | 30 20 f2 65 72 72 6f 72 |.~.. F%=|0 .error|
|00000ac0| 28 34 29 3a e1 0d 04 88 | 10 e8 23 46 25 2c 73 74 |(4):....|..#F%,st|
|00000ad0| 6f 72 65 64 25 0d 04 92 | 13 e3 20 6e 3d 31 20 b8 |ored%...|.. n=1 .|
|00000ae0| 20 73 74 6f 72 65 64 25 | 0d 04 9c 2a e8 23 46 25 | stored%|...*.#F%|
|00000af0| 2c 73 74 6f 72 65 64 5f | 66 75 6e 63 24 28 6e 29 |,stored_|func$(n)|
|00000b00| 2c 73 74 6f 72 65 64 5f | 62 61 73 69 63 76 24 28 |,stored_|basicv$(|
|00000b10| 6e 29 0d 04 a6 26 e8 23 | 46 25 2c 73 74 6f 72 65 |n)...&.#|F%,store|
|00000b20| 64 5f 78 6d 69 6e 28 6e | 29 2c 73 74 6f 72 65 64 |d_xmin(n|),stored|
|00000b30| 5f 78 6d 61 78 28 6e 29 | 0d 04 b0 26 e8 23 46 25 |_xmax(n)|...&.#F%|
|00000b40| 2c 73 74 6f 72 65 64 5f | 79 6d 69 6e 28 6e 29 2c |,stored_|ymin(n),|
|00000b50| 73 74 6f 72 65 64 5f 79 | 6d 61 78 28 6e 29 0d 04 |stored_y|max(n)..|
|00000b60| ba 16 e8 23 46 25 2c 66 | 72 65 65 5f 73 70 61 63 |...#F%,f|ree_spac|
|00000b70| 65 28 6e 29 0d 04 c4 05 | ed 0d 04 ce 08 d9 23 46 |e(n)....|......#F|
|00000b80| 25 0d 04 d8 05 e1 0d 04 | e2 05 3a 0d 04 ec 11 dd |%.......|..:.....|
|00000b90| f2 73 61 76 65 28 66 69 | 6c 65 24 29 0d 04 f6 0a |.save(fi|le$)....|
|00000ba0| ea 20 6e 2c 66 25 0d 05 | 00 2f e7 20 66 69 6c 65 |. n,f%..|./. file|
|00000bb0| 24 3d 22 22 20 84 20 66 | 69 6c 65 24 3d 22 3c 4e |$="" . f|ile$="<N|
|00000bc0| 4f 4e 45 3e 22 20 84 20 | 73 74 6f 72 65 64 25 3d |ONE>" . |stored%=|
|00000bd0| 30 20 8c 20 e1 0d 05 0a | 13 f4 20 73 61 76 65 20 |0 . ....|.. save |
|00000be0| 64 61 74 61 62 61 73 65 | 0d 05 14 16 46 25 3d a4 |database|....F%=.|
|00000bf0| 6f 70 65 6e 6f 75 74 28 | 66 69 6c 65 24 29 0d 05 |openout(|file$)..|
|00000c00| 1e 16 e7 20 46 25 3d 30 | 20 f2 65 72 72 6f 72 28 |... F%=0| .error(|
|00000c10| 35 29 3a e1 0d 05 28 10 | f1 23 46 25 2c 73 74 6f |5):...(.|.#F%,sto|
|00000c20| 72 65 64 25 0d 05 32 13 | e3 20 6e 3d 31 20 b8 20 |red%..2.|. n=1 . |
|00000c30| 73 74 6f 72 65 64 25 0d | 05 3c 2a f1 23 46 25 2c |stored%.|.<*.#F%,|
|00000c40| 73 74 6f 72 65 64 5f 66 | 75 6e 63 24 28 6e 29 2c |stored_f|unc$(n),|
|00000c50| 73 74 6f 72 65 64 5f 62 | 61 73 69 63 76 24 28 6e |stored_b|asicv$(n|
|00000c60| 29 0d 05 46 26 f1 23 46 | 25 2c 73 74 6f 72 65 64 |)..F&.#F|%,stored|
|00000c70| 5f 78 6d 69 6e 28 6e 29 | 2c 73 74 6f 72 65 64 5f |_xmin(n)|,stored_|
|00000c80| 78 6d 61 78 28 6e 29 0d | 05 50 26 f1 23 46 25 2c |xmax(n).|.P&.#F%,|
|00000c90| 73 74 6f 72 65 64 5f 79 | 6d 69 6e 28 6e 29 2c 73 |stored_y|min(n),s|
|00000ca0| 74 6f 72 65 64 5f 79 6d | 61 78 28 6e 29 0d 05 5a |tored_ym|ax(n)..Z|
|00000cb0| 16 f1 23 46 25 2c 66 72 | 65 65 5f 73 70 61 63 65 |..#F%,fr|ee_space|
|00000cc0| 28 6e 29 0d 05 64 05 ed | 0d 05 6e 08 d9 23 46 25 |(n)..d..|..n..#F%|
|00000cd0| 0d 05 78 05 e1 0d 05 82 | 05 3a 0d 05 8c 10 dd a4 |..x.....|.:......|
|00000ce0| 63 65 6e 74 72 65 28 61 | 24 29 0d 05 96 18 3d c4 |centre(a|$)....=.|
|00000cf0| 28 37 39 2d a9 61 24 29 | 81 32 2c 22 20 22 29 2b |(79-.a$)|.2," ")+|
|00000d00| 61 24 0d 05 a0 05 3a 0d | 05 aa 0e dd a4 63 68 6f |a$....:.|.....cho|
|00000d10| 70 28 61 24 29 0d 05 b4 | 1e e7 20 a9 61 24 3e 32 |p(a$)...|.. .a$>2|
|00000d20| 35 20 8c 20 3d c0 61 24 | 2c 32 32 29 2b 22 20 2e |5 . =.a$|,22)+" .|
|00000d30| 2e 2e 22 0d 05 be 07 3d | 61 24 0d 05 c8 05 3a 0d |.."....=|a$....:.|
|00000d40| 05 d2 11 dd a4 65 6e 61 | 62 6c 65 64 28 61 25 29 |.....ena|bled(a%)|
|00000d50| 0d 05 dc 25 e7 20 61 25 | 3d b9 20 8c 20 3d 22 45 |...%. a%|=. . ="E|
|00000d60| 6e 61 62 6c 65 64 22 20 | 8b 20 3d 22 44 69 73 61 |nabled" |. ="Disa|
|00000d70| 62 6c 65 64 22 0d 05 e6 | 05 3a 0d 05 f0 16 dd f2 |bled"...|.:......|
|00000d80| 73 68 6f 77 5f 66 6f 72 | 6d 75 6c 61 73 28 79 29 |show_for|mulas(y)|
|00000d90| 0d 05 fa 07 ea 20 78 0d | 06 04 12 f1 8a 31 2c 79 |..... x.|.....1,y|
|00000da0| 29 c4 37 38 2c 22 5f 22 | 29 0d 06 0e 48 f1 8a 31 |).78,"_"|)...H..1|
|00000db0| 2c 79 2b 32 29 22 6e 22 | 8a 34 29 22 46 75 6e 63 |,y+2)"n"|.4)"Func|
|00000dc0| 74 69 6f 6e 22 8a 33 39 | 29 22 6d 69 6e 20 78 22 |tion".39|)"min x"|
|00000dd0| 8a 34 39 29 22 6d 61 78 | 20 78 22 8a 35 39 29 22 |.49)"max| x".59)"|
|00000de0| 6d 69 6e 20 79 22 8a 36 | 39 29 22 6d 61 78 20 79 |min y".6|9)"max y|
|00000df0| 22 0d 06 18 0e e3 20 78 | 3d 31 20 b8 20 31 30 0d |"..... x|=1 . 10.|
|00000e00| 06 22 12 f1 8a 31 2c 79 | 2b 78 2b 32 29 22 22 3b |."...1,y|+x+2)"";|
|00000e10| 78 0d 06 2c 41 e7 20 66 | 75 6e 63 24 28 78 29 3c |x..,A. f|unc$(x)<|
|00000e20| 3e 22 22 20 f1 8a 35 2c | 79 2b 78 2b 32 29 22 79 |>"" ..5,|y+x+2)"y|
|00000e30| 3d 22 3b 66 75 6e 63 24 | 28 78 29 20 8b 20 f1 8a |=";func$|(x) . ..|
|00000e40| 32 30 2c 79 2b 78 2b 32 | 29 22 3c 42 6c 61 6e 6b |20,y+x+2|)"<Blank|
|00000e50| 3e 22 0d 06 36 50 f1 8a | 34 30 2c 79 2b 78 2b 32 |>"..6P..|40,y+x+2|
|00000e60| 29 3b 78 6d 69 6e 28 78 | 29 3b 8a 35 30 2c 79 2b |);xmin(x|);.50,y+|
|00000e70| 78 2b 32 29 3b 78 6d 61 | 78 28 78 29 3b 8a 36 30 |x+2);xma|x(x);.60|
|00000e80| 2c 79 2b 78 2b 32 29 3b | 79 6d 69 6e 28 78 29 3b |,y+x+2);|ymin(x);|
|00000e90| 8a 37 30 2c 79 2b 78 2b | 32 29 3b 79 6d 61 78 28 |.70,y+x+|2);ymax(|
|00000ea0| 78 29 0d 06 40 05 ed 0d | 06 4a 05 e1 0d 06 54 05 |x)..@...|.J....T.|
|00000eb0| 3a 0d 06 5e 1b dd f2 68 | 69 67 68 5f 66 6f 72 6d |:..^...h|igh_form|
|00000ec0| 75 6c 61 28 79 2c 68 69 | 67 68 25 29 0d 06 68 0b |ula(y,hi|gh%)..h.|
|00000ed0| fb 30 3a fb 31 32 39 0d | 06 72 1a f1 8a 31 2c 79 |.0:.129.|.r...1,y|
|00000ee0| 2b 68 69 67 68 25 2b 32 | 29 22 22 3b 68 69 67 68 |+high%+2|)"";high|
|00000ef0| 25 0d 06 7c 51 e7 20 66 | 75 6e 63 24 28 68 69 67 |%..|Q. f|unc$(hig|
|00000f00| 68 25 29 3c 3e 22 22 20 | f1 8a 35 2c 79 2b 68 69 |h%)<>"" |..5,y+hi|
|00000f10| 67 68 25 2b 32 29 22 79 | 3d 22 3b 66 75 6e 63 24 |gh%+2)"y|=";func$|
|00000f20| 28 68 69 67 68 25 29 20 | 8b 20 f1 8a 32 30 2c 79 |(high%) |. ..20,y|
|00000f30| 2b 68 69 67 68 25 2b 32 | 29 22 3c 42 6c 61 6e 6b |+high%+2|)"<Blank|
|00000f40| 3e 22 0d 06 86 70 f1 8a | 34 30 2c 79 2b 68 69 67 |>"...p..|40,y+hig|
|00000f50| 68 25 2b 32 29 3b 78 6d | 69 6e 28 68 69 67 68 25 |h%+2);xm|in(high%|
|00000f60| 29 3b 8a 35 30 2c 79 2b | 68 69 67 68 25 2b 32 29 |);.50,y+|high%+2)|
|00000f70| 3b 78 6d 61 78 28 68 69 | 67 68 25 29 3b 8a 36 30 |;xmax(hi|gh%);.60|
|00000f80| 2c 79 2b 68 69 67 68 25 | 2b 32 29 3b 79 6d 69 6e |,y+high%|+2);ymin|
|00000f90| 28 68 69 67 68 25 29 3b | 8a 37 30 2c 79 2b 68 69 |(high%);|.70,y+hi|
|00000fa0| 67 68 25 2b 32 29 3b 79 | 6d 61 78 28 68 69 67 68 |gh%+2);y|max(high|
|00000fb0| 25 29 0d 06 90 0b fb 31 | 3a fb 31 32 38 0d 06 9a |%).....1|:.128...|
|00000fc0| 05 e1 0d 06 a4 05 3a 0d | 06 ae 12 dd f2 73 68 6f |......:.|.....sho|
|00000fd0| 77 5f 74 69 6d 65 28 79 | 29 0d 06 b8 17 e7 20 63 |w_time(y|)..... c|
|00000fe0| 6f 6d 70 75 74 65 72 24 | 3d 22 42 42 43 22 20 e1 |omputer$|="BBC" .|
|00000ff0| 0d 06 c2 1e f1 8a 35 30 | 2c 79 29 22 54 69 6d 65 |......50|,y)"Time|
|00001000| 3a 20 22 3b c0 91 24 2c | a9 91 24 2d 33 29 0d 06 |: ";..$,|..$-3)..|
|00001010| cc 05 e1 0d 06 d6 05 3a | 0d 06 e0 0b dd f2 74 69 |.......:|......ti|
|00001020| 74 6c 65 0d 06 ea 4e e7 | 20 63 6f 6d 70 75 74 65 |tle...N.| compute|
|00001030| 72 24 3d 22 4e 49 4d 42 | 55 53 22 20 f2 72 65 63 |r$="NIMB|US" .rec|
|00001040| 74 61 6e 67 6c 65 28 35 | 2c 35 2c 31 32 36 38 2c |tangle(5|,5,1268,|
|00001050| 39 38 31 29 3a f2 72 65 | 63 74 61 6e 67 6c 65 28 |981):.re|ctangle(|
|00001060| 31 30 2c 31 30 2c 31 32 | 35 38 2c 39 37 31 29 3a |10,10,12|58,971):|
|00001070| e1 0d 06 f4 39 f2 72 65 | 63 74 61 6e 67 6c 65 28 |....9.re|ctangle(|
|00001080| 35 2c 35 2c 31 32 36 38 | 2c 31 30 31 34 29 3a f2 |5,5,1268|,1014):.|
|00001090| 72 65 63 74 61 6e 67 6c | 65 28 31 30 2c 31 30 2c |rectangl|e(10,10,|
|000010a0| 31 32 35 38 2c 31 30 30 | 34 29 0d 06 fe 05 e1 0d |1258,100|4)......|
|000010b0| 07 08 05 3a 0d 07 12 18 | dd f2 72 65 63 74 61 6e |...:....|..rectan|
|000010c0| 67 6c 65 28 78 2c 79 2c | 77 2c 68 29 0d 07 1c 28 |gle(x,y,|w,h)...(|
|000010d0| ec 78 2c 79 3a df 20 78 | 2b 77 2c 79 3a df 20 78 |.x,y:. x|+w,y:. x|
|000010e0| 2b 77 2c 79 2b 68 3a df | 20 78 2c 79 2b 68 3a df |+w,y+h:.| x,y+h:.|
|000010f0| 20 78 2c 79 0d 07 26 05 | e1 0d 07 30 05 3a 0d 07 | x,y..&.|...0.:..|
|00001100| 3a 0e dd f2 6d 61 69 6e | 6d 65 6e 75 0d 07 44 0c |:...main|menu..D.|
|00001110| ea 20 4b 45 59 24 2c 78 | 0d 07 4e 10 db 3a ef 31 |. KEY$,x|..N..:.1|
|00001120| 39 2c 30 2c 34 3b 30 3b | 0d 07 58 29 f1 8a 30 2c |9,0,4;0;|..X)..0,|
|00001130| 34 29 a4 63 65 6e 74 72 | 65 28 22 4d 20 41 20 49 |4).centr|e("M A I|
|00001140| 20 4e 20 20 20 20 20 20 | 4d 20 45 20 4e 20 55 22 | N |M E N U"|
|00001150| 29 0d 07 62 31 f1 8a 32 | 2c 36 29 22 50 6c 65 61 |)..b1..2|,6)"Plea|
|00001160| 73 65 20 73 65 6c 65 63 | 74 20 6f 70 74 69 6f 6e |se selec|t option|
|00001170| 20 77 69 74 68 20 6e 75 | 6d 62 65 72 20 6b 65 79 | with nu|mber key|
|00001180| 3a 22 0d 07 6c 64 e7 20 | 66 75 6e 63 74 69 6f 6e |:"..ld. |function|
|00001190| 25 3d 30 20 f1 8a 38 2c | 31 30 29 22 2a 20 31 2e |%=0 ..8,|10)"* 1.|
|000011a0| 2e 2e 2e 44 72 61 77 69 | 6e 67 2f 70 6c 6f 74 74 |...Drawi|ng/plott|
|000011b0| 69 6e 67 20 6f 70 74 69 | 6f 6e 73 22 20 8b 20 f1 |ing opti|ons" . .|
|000011c0| 8a 31 30 2c 31 30 29 22 | 31 2e 2e 2e 2e 44 72 61 |.10,10)"|1....Dra|
|000011d0| 77 69 6e 67 2f 70 6c 6f | 74 74 69 6e 67 20 6f 70 |wing/plo|tting op|
|000011e0| 74 69 6f 6e 73 22 0d 07 | 76 24 f1 8a 31 30 2c 31 |tions"..|v$..10,1|
|000011f0| 32 29 22 32 2e 2e 2e 2e | 45 64 69 74 20 6c 69 6e |2)"2....|Edit lin|
|00001200| 65 20 64 65 74 61 69 6c | 73 22 0d 07 80 30 f1 8a |e detail|s"...0..|
|00001210| 31 30 2c 31 34 29 22 33 | 2e 2e 2e 2e 53 74 6f 72 |10,14)"3|....Stor|
|00001220| 65 64 20 6c 69 6e 65 73 | 20 64 61 74 61 62 61 73 |ed lines| databas|
|00001230| 65 20 6f 70 74 69 6f 6e | 73 22 0d 07 8a 1d f1 8a |e option|s"......|
|00001240| 31 30 2c 31 36 29 22 34 | 2e 2e 2e 2e 43 61 6c 63 |10,16)"4|....Calc|
|00001250| 75 6c 61 74 6f 72 22 0d | 07 94 2a f1 8a 31 30 2c |ulator".|..*..10,|
|00001260| 31 38 29 22 35 2e 2e 2e | 2e 4d 61 74 68 65 6d 61 |18)"5...|.Mathema|
|00001270| 74 69 63 61 6c 20 6f 70 | 65 72 61 74 69 6f 6e 73 |tical op|erations|
|00001280| 22 0d 07 9e 5a e7 20 63 | 6f 6e 66 69 67 75 72 65 |"...Z. c|onfigure|
|00001290| 5f 6f 6b 25 3d a3 20 f1 | 8a 38 2c 32 30 29 22 2a |_ok%=. .|.8,20)"*|
|000012a0| 20 36 2e 2e 2e 2e 43 6f | 6e 66 69 67 75 72 65 20 | 6....Co|nfigure |
|000012b0| 70 72 6f 67 72 61 6d 22 | 20 8b 20 f1 8a 31 30 2c |program"| . ..10,|
|000012c0| 32 30 29 22 36 2e 2e 2e | 2e 43 6f 6e 66 69 67 75 |20)"6...|.Configu|
|000012d0| 72 65 20 70 72 6f 67 72 | 61 6d 22 0d 07 a8 71 e7 |re progr|am"...q.|
|000012e0| 20 6f 73 5f 6f 6b 25 3d | a3 20 f1 8a 38 2c 32 32 | os_ok%=|. ..8,22|
|000012f0| 29 22 2a 20 37 2e 2e 2e | 2e 50 65 72 66 6f 72 6d |)"* 7...|.Perform|
|00001300| 20 6f 70 65 72 61 74 69 | 6e 67 20 73 79 73 74 65 | operati|ng syste|
|00001310| 6d 20 63 6f 6d 6d 61 6e | 64 22 20 8b 20 f1 8a 31 |m comman|d" . ..1|
|00001320| 30 2c 32 32 29 22 37 2e | 2e 2e 2e 50 65 72 66 6f |0,22)"7.|...Perfo|
|00001330| 72 6d 20 6f 70 65 72 61 | 74 69 6e 67 20 73 79 73 |rm opera|ting sys|
|00001340| 74 65 6d 20 63 6f 6d 6d | 61 6e 64 22 0d 07 b2 1f |tem comm|and"....|
|00001350| f1 8a 31 30 2c 32 34 29 | 22 38 2e 2e 2e 2e 51 75 |..10,24)|"8....Qu|
|00001360| 69 74 20 70 72 6f 67 72 | 61 6d 22 0d 07 bc 23 f1 |it progr|am"...#.|
|00001370| 8a 32 2c 32 38 29 22 57 | 68 69 63 68 20 64 6f 20 |.2,28)"W|hich do |
|00001380| 79 6f 75 20 77 61 6e 74 | 3f 20 5b 20 5d 22 0d 07 |you want|? [ ]"..|
|00001390| c6 0a f2 74 69 74 6c 65 | 0d 07 d0 12 f2 73 68 6f |...title|.....sho|
|000013a0| 77 5f 74 69 6d 65 28 33 | 30 29 0d 07 da 05 f5 0d |w_time(3|0)......|
|000013b0| 07 e4 0a 78 3d a6 28 30 | 29 0d 07 ee 1e e7 20 78 |...x=.(0|)..... x|
|000013c0| 3c 3e 2d 31 20 4b 45 59 | 24 3d bd 78 20 8b 20 4b |<>-1 KEY|$=.x . K|
|000013d0| 45 59 24 3d 22 20 22 0d | 07 f8 21 e7 20 91 3e 31 |EY$=" ".|..!. .>1|
|000013e0| 30 30 30 20 8c 20 d1 3d | 30 3a f2 73 68 6f 77 5f |000 . .=|0:.show_|
|000013f0| 74 69 6d 65 28 33 30 29 | 0d 08 02 0e f1 20 8a 32 |time(30)|..... .2|
|00001400| 32 2c 32 38 29 3b 0d 08 | 0c 17 fd 20 a7 22 31 32 |2,28);..|... ."12|
|00001410| 33 34 35 36 37 38 22 2c | 4b 45 59 24 29 0d 08 16 |345678",|KEY$)...|
|00001420| 26 e7 20 4b 45 59 24 3d | 22 31 22 20 80 20 66 75 |&. KEY$=|"1" . fu|
|00001430| 6e 63 74 69 6f 6e 25 3e | 30 20 f2 70 6c 6f 74 5f |nction%>|0 .plot_|
|00001440| 6f 70 73 0d 08 20 1a e7 | 20 4b 45 59 24 3d 22 32 |ops.. ..| KEY$="2|
|00001450| 22 20 f2 65 64 69 74 5f | 6c 69 6e 65 73 0d 08 2a |" .edit_|lines..*|
|00001460| 1c e7 20 4b 45 59 24 3d | 22 33 22 20 f2 64 61 74 |.. KEY$=|"3" .dat|
|00001470| 61 62 61 73 65 5f 6f 70 | 73 0d 08 34 1a e7 20 4b |abase_op|s..4.. K|
|00001480| 45 59 24 3d 22 34 22 20 | f2 63 61 6c 63 75 6c 61 |EY$="4" |.calcula|
|00001490| 74 6f 72 0d 08 3e 19 e7 | 20 4b 45 59 24 3d 22 35 |tor..>..| KEY$="5|
|000014a0| 22 20 f2 6d 61 74 68 73 | 5f 6f 70 73 0d 08 48 1e |" .maths|_ops..H.|
|000014b0| e7 20 4b 45 59 24 3d 22 | 37 22 20 80 20 6f 73 5f |. KEY$="|7" . os_|
|000014c0| 6f 6b 25 20 f2 6f 73 63 | 6c 69 0d 08 52 29 e7 20 |ok% .osc|li..R). |
|000014d0| 4b 45 59 24 3d 22 36 22 | 20 80 20 63 6f 6e 66 69 |KEY$="6"| . confi|
|000014e0| 67 75 72 65 5f 6f 6b 25 | 20 f2 63 6f 6e 66 69 67 |gure_ok%| .config|
|000014f0| 75 72 65 0d 08 5c 16 e7 | 20 4b 45 59 24 3d 22 38 |ure..\..| KEY$="8|
|00001500| 22 20 71 75 69 74 25 3d | b9 0d 08 66 05 e1 0d 08 |" quit%=|...f....|
|00001510| 70 05 3a 0d 08 7a 0e dd | f2 70 6c 6f 74 5f 6f 70 |p.:..z..|.plot_op|
|00001520| 73 0d 08 84 0c ea 20 4b | 45 59 24 2c 78 0d 08 8e |s..... K|EY$,x...|
|00001530| 05 f5 0d 08 98 10 db 3a | ef 31 39 2c 30 2c 34 3b |.......:|.19,0,4;|
|00001540| 30 3b 0d 08 a2 35 f1 8a | 30 2c 34 29 a4 63 65 6e |0;...5..|0,4).cen|
|00001550| 74 72 65 28 22 50 20 4c | 20 4f 20 54 20 54 20 49 |tre("P L| O T T I|
|00001560| 20 4e 20 47 20 20 20 20 | 4f 20 50 20 54 20 49 20 | N G |O P T I |
|00001570| 4f 20 4e 20 53 22 29 0d | 08 ac 31 f1 8a 32 2c 36 |O N S").|..1..2,6|
|00001580| 29 22 50 6c 65 61 73 65 | 20 73 65 6c 65 63 74 20 |)"Please| select |
|00001590| 6f 70 74 69 6f 6e 20 77 | 69 74 68 20 6e 75 6d 62 |option w|ith numb|
|000015a0| 65 72 20 6b 65 79 3a 22 | 0d 08 b6 2d f1 8a 31 30 |er key:"|...-..10|
|000015b0| 2c 38 29 22 31 2e 2e 2e | 2e 50 6c 6f 74 20 61 6c |,8)"1...|.Plot al|
|000015c0| 6c 20 6c 69 6e 65 73 20 | 6f 6e 20 73 61 6d 65 20 |l lines |on same |
|000015d0| 61 78 65 73 22 0d 08 c0 | 22 f1 8a 31 30 2c 39 29 |axes"...|"..10,9)|
|000015e0| 22 32 2e 2e 2e 2e 50 6c | 6f 74 20 73 69 6e 67 6c |"2....Pl|ot singl|
|000015f0| 65 20 6c 69 6e 65 22 0d | 08 ca 32 f1 8a 31 30 2c |e line".|..2..10,|
|00001600| 31 30 29 22 33 2e 2e 2e | 2e 50 6c 6f 74 20 73 69 |10)"3...|.Plot si|
|00001610| 6e 67 6c 65 20 6c 69 6e | 65 20 77 69 74 68 20 76 |ngle lin|e with v|
|00001620| 61 72 69 61 62 6c 65 73 | 22 0d 08 d4 3c f1 8a 31 |ariables|"...<..1|
|00001630| 30 2c 31 31 29 22 34 2e | 2e 2e 2e 50 6c 6f 74 20 |0,11)"4.|...Plot |
|00001640| 73 65 76 65 72 61 6c 20 | 6c 69 6e 65 73 20 6f 6e |several |lines on|
|00001650| 20 73 61 6d 65 20 61 78 | 65 73 20 28 6e 6f 74 20 | same ax|es (not |
|00001660| 61 6c 6c 29 22 0d 08 de | 26 f1 8a 31 30 2c 31 32 |all)"...|&..10,12|
|00001670| 29 22 52 2e 2e 2e 2e 52 | 65 74 75 72 6e 20 74 6f |)"R....R|eturn to|
|00001680| 20 6d 61 69 6e 20 6d 65 | 6e 75 22 0d 08 e8 23 f1 | main me|nu"...#.|
|00001690| 8a 32 2c 31 35 29 22 57 | 68 69 63 68 20 64 6f 20 |.2,15)"W|hich do |
|000016a0| 79 6f 75 20 77 61 6e 74 | 3f 20 5b 20 5d 22 0d 08 |you want|? [ ]"..|
|000016b0| f2 16 f2 73 68 6f 77 5f | 66 6f 72 6d 75 6c 61 73 |...show_|formulas|
|000016c0| 28 31 36 29 0d 08 fc 0a | f2 74 69 74 6c 65 0d 09 |(16)....|.title..|
|000016d0| 06 12 f2 73 68 6f 77 5f | 74 69 6d 65 28 33 30 29 |...show_|time(30)|
|000016e0| 0d 09 10 05 f5 0d 09 1a | 0a 78 3d a6 28 30 29 0d |........|.x=.(0).|
|000016f0| 09 24 1e e7 20 78 3c 3e | 2d 31 20 4b 45 59 24 3d |.$.. x<>|-1 KEY$=|
|00001700| bd 78 20 8b 20 4b 45 59 | 24 3d 22 20 22 0d 09 2e |.x . KEY|$=" "...|
|00001710| 21 e7 20 91 3e 31 30 30 | 30 20 8c 20 d1 3d 30 3a |!. .>100|0 . .=0:|
|00001720| f2 73 68 6f 77 5f 74 69 | 6d 65 28 33 30 29 0d 09 |.show_ti|me(30)..|
|00001730| 38 0e f1 20 8a 32 32 2c | 31 35 29 3b 0d 09 42 13 |8.. .22,|15);..B.|
|00001740| fd 20 a7 22 31 32 33 52 | 22 2c 4b 45 59 24 29 0d |. ."123R|",KEY$).|
|00001750| 09 4c 17 e7 20 4b 45 59 | 24 3d 22 31 22 20 f2 70 |.L.. KEY|$="1" .p|
|00001760| 6c 6f 74 61 6c 6c 0d 09 | 56 1b e7 20 4b 45 59 24 |lotall..|V.. KEY$|
|00001770| 3d 22 33 22 20 f2 69 6e | 63 5f 70 6c 6f 74 28 31 |="3" .in|c_plot(1|
|00001780| 29 0d 09 60 0e fd 20 4b | 45 59 24 3d 22 52 22 0d |)..`.. K|EY$="R".|
|00001790| 09 6a 05 e1 0d 09 74 05 | 3a 0d 09 7e 10 dd f2 65 |.j....t.|:..~...e|
|000017a0| 64 69 74 5f 6c 69 6e 65 | 73 0d 09 88 1b ea 20 68 |dit_line|s..... h|
|000017b0| 69 67 68 25 2c 6f 6c 64 | 68 69 67 68 25 2c 4b 45 |igh%,old|high%,KE|
|000017c0| 59 24 2c 78 0d 09 92 16 | 68 69 67 68 25 3d 31 3a |Y$,x....|high%=1:|
|000017d0| 6f 6c 64 68 69 67 68 25 | 3d 30 0d 09 9c 05 f5 0d |oldhigh%|=0......|
|000017e0| 09 a6 10 db 3a ef 31 39 | 2c 30 2c 34 3b 30 3b 0d |....:.19|,0,4;0;.|
|000017f0| 09 b0 38 f1 8a 30 2c 34 | 29 a4 63 65 6e 74 72 65 |..8..0,4|).centre|
|00001800| 28 22 45 20 44 20 49 20 | 54 20 20 20 20 4c 20 49 |("E D I |T L I|
|00001810| 20 4e 20 45 20 20 20 20 | 44 20 45 20 54 20 41 20 | N E |D E T A |
|00001820| 49 20 4c 20 53 22 29 0d | 09 ba 4e f1 8a 32 2c 36 |I L S").|..N..2,6|
|00001830| 29 22 50 6c 65 61 73 65 | 20 73 65 6c 65 63 74 20 |)"Please| select |
|00001840| 6f 70 74 69 6f 6e 20 77 | 69 74 68 20 6e 75 6d 62 |option w|ith numb|
|00001850| 65 72 20 6b 65 79 20 28 | 43 75 72 73 6f 72 20 6b |er key (|Cursor k|
|00001860| 65 79 73 20 74 6f 20 73 | 65 6c 65 63 74 20 6c 69 |eys to s|elect li|
|00001870| 6e 65 29 3a 22 0d 09 c4 | 23 f1 8a 35 2c 37 29 22 |ne):"...|#..5,7)"|
|00001880| 31 2e 2e 2e 2e 41 64 64 | 20 61 20 6c 69 6e 65 20 |1....Add| a line |
|00001890| 74 6f 20 6c 69 73 74 22 | 0d 09 ce 71 e7 20 66 75 |to list"|...q. fu|
|000018a0| 6e 63 74 69 6f 6e 25 3c | 68 69 67 68 25 20 f1 8a |nction%<|high% ..|
|000018b0| 33 2c 38 29 22 2a 20 32 | 2e 2e 2e 2e 44 65 6c 65 |3,8)"* 2|....Dele|
|000018c0| 74 65 20 73 65 6c 65 63 | 74 65 64 20 6c 69 6e 65 |te selec|ted line|
|000018d0| 20 66 72 6f 6d 20 6c 69 | 73 74 22 20 8b 20 f1 8a | from li|st" . ..|
|000018e0| 35 2c 38 29 22 32 2e 2e | 2e 2e 44 65 6c 65 74 65 |5,8)"2..|..Delete|
|000018f0| 20 73 65 6c 65 63 74 65 | 64 20 6c 69 6e 65 20 66 | selecte|d line f|
|00001900| 72 6f 6d 20 6c 69 73 74 | 22 0d 09 d8 73 e7 20 66 |rom list|"...s. f|
|00001910| 75 6e 63 74 69 6f 6e 25 | 3c 68 69 67 68 25 20 f1 |unction%|<high% .|
|00001920| 8a 33 2c 39 29 22 2a 20 | 33 2e 2e 2e 2e 43 68 61 |.3,9)"* |3....Cha|
|00001930| 6e 67 65 20 64 65 74 61 | 69 6c 73 20 6f 66 20 73 |nge deta|ils of s|
|00001940| 65 6c 65 63 74 65 64 20 | 6c 69 6e 65 22 20 8b 20 |elected |line" . |
|00001950| f1 8a 35 2c 39 29 22 33 | 2e 2e 2e 2e 43 68 61 6e |..5,9)"3|....Chan|
|00001960| 67 65 20 64 65 74 61 69 | 6c 73 20 6f 66 20 73 65 |ge detai|ls of se|
|00001970| 6c 65 63 74 65 64 20 6c | 69 6e 65 22 0d 09 e2 32 |lected l|ine"...2|
|00001980| f1 8a 35 2c 31 30 29 22 | 34 2e 2e 2e 2e 43 68 61 |..5,10)"|4....Cha|
|00001990| 6e 67 65 20 76 61 72 69 | 61 62 6c 65 73 20 28 41 |nge vari|ables (A|
|000019a0| 20 42 20 43 20 4d 20 4e | 20 50 20 51 29 22 0d 09 | B C M N| P Q)"..|
|000019b0| ec 93 e7 20 66 75 6e 63 | 74 69 6f 6e 25 3c 68 69 |... func|tion%<hi|
|000019c0| 67 68 25 20 f1 8a 33 2c | 31 31 29 22 2a 20 35 2e |gh% ..3,|11)"* 5.|
|000019d0| 2e 2e 2e 46 69 6e 64 20 | 6d 61 78 20 61 6e 64 20 |...Find |max and |
|000019e0| 6d 69 6e 20 59 20 76 61 | 6c 75 65 73 20 6f 66 20 |min Y va|lues of |
|000019f0| 73 65 6c 65 63 74 65 64 | 20 66 75 6e 63 74 69 6f |selected| functio|
|00001a00| 6e 22 20 8b 20 f1 8a 35 | 2c 31 31 29 22 35 2e 2e |n" . ..5|,11)"5..|
|00001a10| 2e 2e 46 69 6e 64 20 6d | 61 78 20 61 6e 64 20 6d |..Find m|ax and m|
|00001a20| 69 6e 20 59 20 76 61 6c | 75 65 73 20 6f 66 20 73 |in Y val|ues of s|
|00001a30| 65 6c 65 63 74 65 64 20 | 66 75 6e 63 74 69 6f 6e |elected |function|
|00001a40| 22 0d 09 f6 3e f1 8a 35 | 2c 31 32 29 22 36 2e 2e |"...>..5|,12)"6..|
|00001a50| 2e 2e 44 65 67 72 65 65 | 73 2f 52 61 64 69 61 6e |..Degree|s/Radian|
|00001a60| 73 20 20 28 22 3b a4 72 | 61 64 69 61 6e 73 5f 6f |s (";.r|adians_o|
|00001a70| 6e 5f 6f 66 66 28 72 61 | 64 25 29 3b 22 29 22 0d |n_off(ra|d%);")".|
|00001a80| 0a 00 25 f1 8a 35 2c 31 | 33 29 22 52 2e 2e 2e 2e |..%..5,1|3)"R....|
|00001a90| 52 65 74 75 72 6e 20 74 | 6f 20 6d 61 69 6e 20 6d |Return t|o main m|
|00001aa0| 65 6e 75 22 0d 0a 0a 23 | f1 8a 32 2c 31 35 29 22 |enu"...#|..2,15)"|
|00001ab0| 57 68 69 63 68 20 64 6f | 20 79 6f 75 20 77 61 6e |Which do| you wan|
|00001ac0| 74 3f 20 5b 20 5d 22 0d | 0a 14 16 f2 73 68 6f 77 |t? [ ]".|....show|
|00001ad0| 5f 66 6f 72 6d 75 6c 61 | 73 28 31 36 29 0d 0a 1e |_formula|s(16)...|
|00001ae0| 0a f2 74 69 74 6c 65 0d | 0a 28 12 f2 73 68 6f 77 |..title.|.(..show|
|00001af0| 5f 74 69 6d 65 28 33 30 | 29 0d 0a 32 1b f2 68 69 |_time(30|)..2..hi|
|00001b00| 67 68 5f 66 6f 72 6d 75 | 6c 61 28 31 36 2c 68 69 |gh_formu|la(16,hi|
|00001b10| 67 68 25 29 0d 0a 3c 12 | 6f 6c 64 68 69 67 68 25 |gh%)..<.|oldhigh%|
|00001b20| 3d 68 69 67 68 25 0d 0a | 46 05 f5 0d 0a 50 0a 78 |=high%..|F....P.x|
|00001b30| 3d a6 28 30 29 0d 0a 5a | 37 e7 20 a6 28 2d 35 38 |=.(0)..Z|7. .(-58|
|00001b40| 29 20 68 69 67 68 25 3d | 68 69 67 68 25 2d 31 3a |) high%=|high%-1:|
|00001b50| f2 77 61 69 74 28 31 30 | 29 3a e7 20 68 69 67 68 |.wait(10|):. high|
|00001b60| 25 3d 30 20 68 69 67 68 | 25 3d 31 30 0d 0a 64 37 |%=0 high|%=10..d7|
|00001b70| e7 20 a6 28 2d 34 32 29 | 20 68 69 67 68 25 3d 68 |. .(-42)| high%=h|
|00001b80| 69 67 68 25 2b 31 3a f2 | 77 61 69 74 28 31 30 29 |igh%+1:.|wait(10)|
|00001b90| 3a e7 20 68 69 67 68 25 | 3d 31 31 20 68 69 67 68 |:. high%|=11 high|
|00001ba0| 25 3d 31 0d 0a 6e 1e e7 | 20 78 3c 3e 2d 31 20 4b |%=1..n..| x<>-1 K|
|00001bb0| 45 59 24 3d bd 78 20 8b | 20 4b 45 59 24 3d 22 20 |EY$=.x .| KEY$=" |
|00001bc0| 22 0d 0a 78 21 e7 20 91 | 3e 31 30 30 30 20 8c 20 |"..x!. .|>1000 . |
|00001bd0| d1 3d 30 3a f2 73 68 6f | 77 5f 74 69 6d 65 28 33 |.=0:.sho|w_time(3|
|00001be0| 30 29 0d 0a 82 0e f1 20 | 8a 32 32 2c 31 35 29 3b |0)..... |.22,15);|
|00001bf0| 0d 0a 8c 28 fd 20 a7 22 | 31 32 33 34 35 36 52 22 |...(. ."|123456R"|
|00001c00| 2c 4b 45 59 24 29 20 84 | 20 68 69 67 68 25 3c 3e |,KEY$) .| high%<>|
|00001c10| 6f 6c 64 68 69 67 68 25 | 0d 0a 96 1f e7 20 4b 45 |oldhigh%|..... KE|
|00001c20| 59 24 3d 22 31 22 20 f2 | 67 65 74 5f 6e 65 77 5f |Y$="1" .|get_new_|
|00001c30| 66 6f 72 6d 75 6c 61 0d | 0a a0 30 e7 20 4b 45 59 |formula.|..0. KEY|
|00001c40| 24 3d 22 32 22 20 80 20 | 66 75 6e 63 74 69 6f 6e |$="2" . |function|
|00001c50| 25 3e 3d 68 69 67 68 25 | 20 f2 64 65 6c 65 74 65 |%>=high%| .delete|
|00001c60| 28 68 69 67 68 25 29 0d | 0a aa 3b e7 20 4b 45 59 |(high%).|..;. KEY|
|00001c70| 24 3d 22 33 22 20 80 20 | 66 75 6e 63 74 69 6f 6e |$="3" . |function|
|00001c80| 25 3e 3d 68 69 67 68 25 | 20 f2 65 64 69 74 5f 6c |%>=high%| .edit_l|
|00001c90| 69 6e 65 5f 64 65 74 61 | 69 6c 73 28 68 69 67 68 |ine_deta|ils(high|
|00001ca0| 25 29 0d 0a b4 65 e7 20 | 4b 45 59 24 3d 22 34 22 |%)...e. |KEY$="4"|
|00001cb0| 20 db 3a f1 22 57 68 69 | 63 68 20 76 61 72 69 61 | .:."Whi|ch varia|
|00001cc0| 62 6c 65 3f 20 28 41 2d | 57 20 6f 72 20 5a 29 20 |ble? (A-|W or Z) |
|00001cd0| 22 3b 3a 76 61 72 24 3d | be 3a f1 20 76 61 72 24 |";:var$=|.:. var$|
|00001ce0| 3a e8 22 56 61 6c 75 65 | 3d 20 22 3b 76 61 6c 3a |:."Value|= ";val:|
|00001cf0| f2 73 65 74 5f 76 61 72 | 69 61 62 6c 65 28 76 61 |.set_var|iable(va|
|00001d00| 72 24 2c 76 61 6c 29 0d | 0a be 35 e7 20 4b 45 59 |r$,val).|..5. KEY|
|00001d10| 24 3d 22 35 22 20 80 20 | 66 75 6e 63 74 69 6f 6e |$="5" . |function|
|00001d20| 25 3e 3d 68 69 67 68 25 | 20 f2 67 65 74 5f 79 5f |%>=high%| .get_y_|
|00001d30| 72 61 6e 67 65 28 68 69 | 67 68 25 29 0d 0a c8 21 |range(hi|gh%)...!|
|00001d40| e7 20 4b 45 59 24 3d 22 | 36 22 20 72 61 64 25 3d |. KEY$="|6" rad%=|
|00001d50| a4 74 6f 67 67 6c 65 28 | 72 61 64 25 29 0d 0a d2 |.toggle(|rad%)...|
|00001d60| 0e fd 20 4b 45 59 24 3d | 22 52 22 0d 0a dc 05 e1 |.. KEY$=|"R".....|
|00001d70| 0d 0a e6 05 3a 0d 0a f0 | 1e dd f2 65 64 69 74 5f |....:...|...edit_|
|00001d80| 6c 69 6e 65 5f 64 65 74 | 61 69 6c 73 28 6c 69 6e |line_det|ails(lin|
|00001d90| 65 25 29 0d 0a fa 0c ea | 20 4b 45 59 24 2c 78 0d |e%).....| KEY$,x.|
|00001da0| 0b 04 05 f5 0d 0b 0e 10 | db 3a ef 31 39 2c 30 2c |........|.:.19,0,|
|00001db0| 34 3b 30 3b 0d 0b 18 38 | f1 8a 30 2c 34 29 a4 63 |4;0;...8|..0,4).c|
|00001dc0| 65 6e 74 72 65 28 22 45 | 20 44 20 49 20 54 20 20 |entre("E| D I T |
|00001dd0| 20 20 4c 20 49 20 4e 20 | 45 20 20 20 20 44 20 45 | L I N |E D E|
|00001de0| 20 54 20 41 20 49 20 4c | 20 53 22 29 0d 0b 22 31 | T A I L| S").."1|
|00001df0| f1 8a 32 2c 36 29 22 50 | 6c 65 61 73 65 20 73 65 |..2,6)"P|lease se|
|00001e00| 6c 65 63 74 20 6f 70 74 | 69 6f 6e 20 77 69 74 68 |lect opt|ion with|
|00001e10| 20 6e 75 6d 62 65 72 20 | 6b 65 79 3a 22 0d 0b 2c | number |key:"..,|
|00001e20| 20 f1 8a 31 30 2c 38 29 | 22 31 2e 2e 2e 2e 43 68 | ..10,8)|"1....Ch|
|00001e30| 61 6e 67 65 20 66 6f 72 | 6d 75 6c 61 22 0d 0b 36 |ange for|mula"..6|
|00001e40| 29 f1 8a 31 30 2c 31 30 | 29 22 32 2e 2e 2e 2e 43 |)..10,10|)"2....C|
|00001e50| 68 61 6e 67 65 20 6d 69 | 6e 69 6d 75 6d 20 78 20 |hange mi|nimum x |
|00001e60| 76 61 6c 75 65 22 0d 0b | 40 29 f1 8a 31 30 2c 31 |value"..|@)..10,1|
|00001e70| 32 29 22 33 2e 2e 2e 2e | 43 68 61 6e 67 65 20 6d |2)"3....|Change m|
|00001e80| 61 78 69 6d 75 6d 20 78 | 20 76 61 6c 75 65 22 0d |aximum x| value".|
|00001e90| 0b 4a 29 f1 8a 31 30 2c | 31 34 29 22 34 2e 2e 2e |.J)..10,|14)"4...|
|00001ea0| 2e 43 68 61 6e 67 65 20 | 6d 69 6e 69 6d 75 6d 20 |.Change |minimum |
|00001eb0| 79 20 76 61 6c 75 65 22 | 0d 0b 54 29 f1 8a 31 30 |y value"|..T)..10|
|00001ec0| 2c 31 36 29 22 35 2e 2e | 2e 2e 43 68 61 6e 67 65 |,16)"5..|..Change|
|00001ed0| 20 6d 61 78 69 6d 75 6d | 20 79 20 76 61 6c 75 65 | maximum| y value|
|00001ee0| 22 0d 0b 5e 2a f1 8a 31 | 30 2c 31 38 29 22 36 2e |"..^*..1|0,18)"6.|
|00001ef0| 2e 2e 2e 41 75 74 6f 20 | 72 61 6e 67 65 20 66 6f |...Auto |range fo|
|00001f00| 72 20 79 20 76 61 6c 75 | 65 73 22 0d 0b 68 2c f1 |r y valu|es"..h,.|
|00001f10| 8a 31 30 2c 32 30 29 22 | 37 2e 2e 2e 2e 53 74 6f |.10,20)"|7....Sto|
|00001f20| 72 65 20 66 6f 72 6d 75 | 6c 61 20 69 6e 20 64 61 |re formu|la in da|
|00001f30| 74 61 62 61 73 65 22 0d | 0b 72 2a f1 8a 31 30 2c |tabase".|.r*..10,|
|00001f40| 32 32 29 22 52 2e 2e 2e | 2e 52 65 74 75 72 6e 20 |22)"R...|.Return |
|00001f50| 74 6f 20 70 72 65 76 69 | 6f 75 73 20 6d 65 6e 75 |to previ|ous menu|
|00001f60| 22 0d 0b 7c 23 f1 8a 32 | 2c 32 34 29 22 57 68 69 |"..|#..2|,24)"Whi|
|00001f70| 63 68 20 64 6f 20 79 6f | 75 20 77 61 6e 74 3f 20 |ch do yo|u want? |
|00001f80| 5b 20 5d 22 0d 0b 86 47 | f1 8a 31 2c 32 36 29 22 |[ ]"...G|..1,26)"|
|00001f90| 6e 22 8a 34 29 22 46 75 | 6e 63 74 69 6f 6e 22 8a |n".4)"Fu|nction".|
|00001fa0| 33 39 29 22 6d 69 6e 20 | 78 22 8a 34 39 29 22 6d |39)"min |x".49)"m|
|00001fb0| 61 78 20 78 22 8a 35 39 | 29 22 6d 69 6e 20 79 22 |ax x".59|)"min y"|
|00001fc0| 8a 36 39 29 22 6d 61 78 | 20 79 22 0d 0b 90 7b f1 |.69)"max| y"...{.|
|00001fd0| 8a 31 2c 32 37 29 22 22 | 3b 6c 69 6e 65 25 3b 8a |.1,27)""|;line%;.|
|00001fe0| 35 2c 32 37 29 22 79 3d | 22 3b 66 75 6e 63 24 28 |5,27)"y=|";func$(|
|00001ff0| 6c 69 6e 65 25 29 3b 8a | 34 30 2c 32 37 29 3b 78 |line%);.|40,27);x|
|00002000| 6d 69 6e 28 6c 69 6e 65 | 25 29 3b 8a 35 30 2c 32 |min(line|%);.50,2|
|00002010| 37 29 3b 78 6d 61 78 28 | 6c 69 6e 65 25 29 3b 8a |7);xmax(|line%);.|
|00002020| 36 30 2c 32 37 29 3b 79 | 6d 69 6e 28 6c 69 6e 65 |60,27);y|min(line|
|00002030| 25 29 3b 8a 37 30 2c 32 | 37 29 3b 79 6d 61 78 28 |%);.70,2|7);ymax(|
|00002040| 6c 69 6e 65 25 29 0d 0b | 9a 0a f2 74 69 74 6c 65 |line%)..|...title|
|00002050| 0d 0b a4 12 f2 73 68 6f | 77 5f 74 69 6d 65 28 33 |.....sho|w_time(3|
|00002060| 30 29 0d 0b ae 05 f5 0d | 0b b8 0a 78 3d a6 28 30 |0)......|...x=.(0|
|00002070| 29 0d 0b c2 1e e7 20 78 | 3c 3e 2d 31 20 4b 45 59 |)..... x|<>-1 KEY|
|00002080| 24 3d bd 78 20 8b 20 4b | 45 59 24 3d 22 20 22 0d |$=.x . K|EY$=" ".|
|00002090| 0b cc 0e f1 20 8a 32 32 | 2c 32 34 29 3b 0d 0b d6 |.... .22|,24);...|
|000020a0| 18 fd 20 a7 22 31 32 33 | 34 35 37 36 37 52 22 2c |.. ."123|45767R",|
|000020b0| 4b 45 59 24 29 0d 0b e0 | 80 e7 20 4b 45 59 24 3d |KEY$)...|.. KEY$=|
|000020c0| 22 31 22 20 e8 8a 31 2c | 32 38 29 22 46 75 6e 63 |"1" ..1,|28)"Func|
|000020d0| 74 69 6f 6e 3a 20 79 3d | 22 66 75 6e 63 24 3a 66 |tion: y=|"func$:f|
|000020e0| 75 6e 63 24 3d a4 63 61 | 73 65 28 66 75 6e 63 24 |unc$=.ca|se(func$|
|000020f0| 29 3a 62 61 73 69 63 76 | 24 28 6c 69 6e 65 25 29 |):basicv|$(line%)|
|00002100| 3d a4 62 61 73 69 63 5f | 76 65 72 73 69 6f 6e 28 |=.basic_|version(|
|00002110| 66 75 6e 63 24 2c b9 29 | 3a 66 75 6e 63 24 28 6c |func$,.)|:func$(l|
|00002120| 69 6e 65 25 29 3d a4 61 | 6c 67 65 62 72 61 28 66 |ine%)=.a|lgebra(f|
|00002130| 75 6e 63 24 29 0d 0b ea | 2e e7 20 4b 45 59 24 3d |unc$)...|.. KEY$=|
|00002140| 22 32 22 20 e8 8a 31 2c | 32 38 29 22 4d 69 6e 69 |"2" ..1,|28)"Mini|
|00002150| 6d 75 6d 20 78 3a 20 22 | 78 6d 69 6e 28 6c 69 6e |mum x: "|xmin(lin|
|00002160| 65 25 29 0d 0b f4 2e e7 | 20 4b 45 59 24 3d 22 33 |e%).....| KEY$="3|
|00002170| 22 20 e8 8a 31 2c 32 38 | 29 22 4d 61 78 69 6d 75 |" ..1,28|)"Maximu|
|00002180| 6d 20 78 3a 20 22 78 6d | 61 78 28 6c 69 6e 65 25 |m x: "xm|ax(line%|
|00002190| 29 0d 0b fe 2e e7 20 4b | 45 59 24 3d 22 34 22 20 |)..... K|EY$="4" |
|000021a0| e8 8a 31 2c 32 38 29 22 | 4d 69 6e 69 6d 75 6d 20 |..1,28)"|Minimum |
|000021b0| 79 3a 20 22 79 6d 69 6e | 28 6c 69 6e 65 25 29 0d |y: "ymin|(line%).|
|000021c0| 0c 08 2e e7 20 4b 45 59 | 24 3d 22 35 22 20 e8 8a |.... KEY|$="5" ..|
|000021d0| 31 2c 32 38 29 22 4d 61 | 78 69 6d 75 6d 20 79 3a |1,28)"Ma|ximum y:|
|000021e0| 20 22 79 6d 61 78 28 6c | 69 6e 65 25 29 0d 0c 12 | "ymax(l|ine%)...|
|000021f0| 22 e7 20 4b 45 59 24 3d | 22 36 22 20 f2 67 65 74 |". KEY$=|"6" .get|
|00002200| 5f 79 5f 72 61 6e 67 65 | 28 6c 69 6e 65 25 29 0d |_y_range|(line%).|
|00002210| 0c 1c 1c e7 20 4b 45 59 | 24 3d 22 37 22 20 f2 73 |.... KEY|$="7" .s|
|00002220| 74 6f 72 65 28 6c 69 6e | 65 25 29 0d 0c 26 0e fd |tore(lin|e%)..&..|
|00002230| 20 4b 45 59 24 3d 22 52 | 22 0d 0c 30 05 e1 0d 0c | KEY$="R|"..0....|
|00002240| 3a 05 3a 0d 0c 44 0f dd | f2 6d 61 74 68 73 5f 6f |:.:..D..|.maths_o|
|00002250| 70 73 0d 0c 4e 0c ea 20 | 4b 45 59 24 2c 78 0d 0c |ps..N.. |KEY$,x..|
|00002260| 58 05 f5 0d 0c 62 10 db | 3a ef 31 39 2c 30 2c 34 |X....b..|:.19,0,4|
|00002270| 3b 30 3b 0d 0c 6c 45 f1 | 8a 30 2c 34 29 a4 63 65 |;0;..lE.|.0,4).ce|
|00002280| 6e 74 72 65 28 22 4d 20 | 41 20 54 20 48 20 45 20 |ntre("M |A T H E |
|00002290| 52 20 4d 20 41 20 54 20 | 49 20 43 20 41 20 4c 20 |R M A T |I C A L |
|000022a0| 20 20 20 4f 20 50 20 45 | 20 52 20 41 20 54 20 49 | O P E| R A T I|
|000022b0| 20 4f 20 4e 20 53 22 29 | 0d 0c 76 31 f1 8a 32 2c | O N S")|..v1..2,|
|000022c0| 36 29 22 50 6c 65 61 73 | 65 20 73 65 6c 65 63 74 |6)"Pleas|e select|
|000022d0| 20 6f 70 74 69 6f 6e 20 | 77 69 74 68 20 6e 75 6d | option |with num|
|000022e0| 62 65 72 20 6b 65 79 3a | 22 0d 0c 80 22 f1 8a 31 |ber key:|"..."..1|
|000022f0| 30 2c 39 29 22 31 2e 2e | 2e 2e 51 75 61 64 72 61 |0,9)"1..|..Quadra|
|00002300| 74 69 63 20 73 6f 6c 76 | 65 72 22 0d 0c 8a 22 f1 |tic solv|er"...".|
|00002310| 8a 31 30 2c 31 31 29 22 | 32 2e 2e 2e 2e 44 69 66 |.10,11)"|2....Dif|
|00002320| 66 65 72 65 6e 74 69 61 | 74 69 6f 6e 22 0d 0c 94 |ferentia|tion"...|
|00002330| 1e f1 8a 31 30 2c 31 33 | 29 22 33 2e 2e 2e 2e 49 |...10,13|)"3....I|
|00002340| 6e 74 65 67 72 61 74 69 | 6f 6e 22 0d 0c 9e 19 f1 |ntegrati|on".....|
|00002350| 8a 31 30 2c 31 35 29 22 | 34 2e 2e 2e 2e 53 65 72 |.10,15)"|4....Ser|
|00002360| 69 65 73 22 0d 0c a8 26 | f1 8a 31 30 2c 31 37 29 |ies"...&|..10,17)|
|00002370| 22 52 2e 2e 2e 2e 52 65 | 74 75 72 6e 20 74 6f 20 |"R....Re|turn to |
|00002380| 6d 61 69 6e 20 6d 65 6e | 75 22 0d 0c b2 23 f1 8a |main men|u"...#..|
|00002390| 32 2c 31 39 29 22 57 68 | 69 63 68 20 64 6f 20 79 |2,19)"Wh|ich do y|
|000023a0| 6f 75 20 77 61 6e 74 3f | 20 5b 20 5d 22 0d 0c bc |ou want?| [ ]"...|
|000023b0| 0a f2 74 69 74 6c 65 0d | 0c c6 12 f2 73 68 6f 77 |..title.|....show|
|000023c0| 5f 74 69 6d 65 28 33 30 | 29 0d 0c d0 05 f5 0d 0c |_time(30|).......|
|000023d0| da 0a 78 3d a6 28 30 29 | 0d 0c e4 1e e7 20 78 3c |..x=.(0)|..... x<|
|000023e0| 3e 2d 31 20 4b 45 59 24 | 3d bd 78 20 8b 20 4b 45 |>-1 KEY$|=.x . KE|
|000023f0| 59 24 3d 22 20 22 0d 0c | ee 21 e7 20 91 3e 31 30 |Y$=" "..|.!. .>10|
|00002400| 30 30 20 8c 20 d1 3d 30 | 3a f2 73 68 6f 77 5f 74 |00 . .=0|:.show_t|
|00002410| 69 6d 65 28 33 30 29 0d | 0c f8 0e f1 20 8a 32 32 |ime(30).|.... .22|
|00002420| 2c 31 39 29 3b 0d 0d 02 | 14 fd 20 a7 22 31 32 33 |,19);...|.. ."123|
|00002430| 34 52 22 2c 4b 45 59 24 | 29 0d 0d 0c 1c e7 20 4b |4R",KEY$|)..... K|
|00002440| 45 59 24 3d 22 31 22 20 | 8c 20 f2 71 75 61 64 72 |EY$="1" |. .quadr|
|00002450| 61 74 69 63 73 0d 0d 16 | 21 e7 20 4b 45 59 24 3d |atics...|!. KEY$=|
|00002460| 22 32 22 20 8c 20 f2 64 | 69 66 66 65 72 65 6e 74 |"2" . .d|ifferent|
|00002470| 69 61 74 69 6f 6e 0d 0d | 20 1d e7 20 4b 45 59 24 |iation..| .. KEY$|
|00002480| 3d 22 33 22 20 8c 20 f2 | 69 6e 74 65 67 72 61 74 |="3" . .|integrat|
|00002490| 69 6f 6e 0d 0d 2a 18 e7 | 20 4b 45 59 24 3d 22 34 |ion..*..| KEY$="4|
|000024a0| 22 20 8c 20 f2 73 65 72 | 69 65 73 0d 0d 34 0e fd |" . .ser|ies..4..|
|000024b0| 20 4b 45 59 24 3d 22 52 | 22 0d 0d 3e 05 e1 0d 0d | KEY$="R|"..>....|
|000024c0| 48 05 3a 0d 0d 52 0f dd | f2 63 6f 6e 66 69 67 75 |H.:..R..|.configu|
|000024d0| 72 65 0d 0d 5c 0c ea 20 | 4b 45 59 24 2c 78 0d 0d |re..\.. |KEY$,x..|
|000024e0| 66 05 f5 0d 0d 70 10 db | 3a ef 31 39 2c 30 2c 34 |f....p..|:.19,0,4|
|000024f0| 3b 30 3b 0d 0d 7a 3b f1 | 8a 30 2c 34 29 a4 63 65 |;0;..z;.|.0,4).ce|
|00002500| 6e 74 72 65 28 22 43 20 | 4f 20 4e 20 46 20 49 20 |ntre("C |O N F I |
|00002510| 47 20 55 20 52 20 41 20 | 54 20 49 20 4f 20 4e 20 |G U R A |T I O N |
|00002520| 20 20 20 20 20 4d 20 45 | 20 4e 20 55 22 29 0d 0d | M E| N U")..|
|00002530| 84 31 f1 8a 32 2c 36 29 | 22 50 6c 65 61 73 65 20 |.1..2,6)|"Please |
|00002540| 73 65 6c 65 63 74 20 6f | 70 74 69 6f 6e 20 77 69 |select o|ption wi|
|00002550| 74 68 20 6e 75 6d 62 65 | 72 20 6b 65 79 3a 22 0d |th numbe|r key:".|
|00002560| 0d 8e 3a f1 8a 31 30 2c | 39 29 22 31 2e 2e 2e 2e |..:..10,|9)"1....|
|00002570| 52 6f 6f 74 20 64 69 72 | 65 63 74 6f 72 79 22 8a |Root dir|ectory".|
|00002580| 34 30 29 a4 63 68 6f 70 | 28 72 6f 6f 74 5f 64 69 |40).chop|(root_di|
|00002590| 72 65 63 74 6f 72 79 24 | 29 0d 0d 98 38 f1 8a 31 |rectory$|)...8..1|
|000025a0| 30 2c 31 30 29 22 32 2e | 2e 2e 2e 44 65 66 61 75 |0,10)"2.|...Defau|
|000025b0| 6c 74 20 64 61 74 61 62 | 61 73 65 22 8a 34 30 29 |lt datab|ase".40)|
|000025c0| 64 65 66 61 75 6c 74 5f | 64 61 74 61 62 61 73 65 |default_|database|
|000025d0| 24 0d 0d a2 3d f1 8a 31 | 30 2c 31 31 29 22 33 2e |$...=..1|0,11)"3.|
|000025e0| 2e 2e 2e 53 63 72 65 65 | 6e 20 64 75 6d 70 20 70 |...Scree|n dump p|
|000025f0| 72 6f 67 72 61 6d 22 8a | 34 30 29 a4 63 68 6f 70 |rogram".|40).chop|
|00002600| 28 73 63 72 65 65 6e 5f | 70 72 6f 67 24 29 0d 0d |(screen_|prog$)..|
|00002610| ac 3d f1 8a 31 30 2c 31 | 32 29 22 34 2e 2e 2e 2e |.=..10,1|2)"4....|
|00002620| 53 63 72 65 65 6e 20 64 | 75 6d 70 20 63 6f 6d 6d |Screen d|ump comm|
|00002630| 61 6e 64 22 8a 34 30 29 | a4 63 68 6f 70 28 73 63 |and".40)|.chop(sc|
|00002640| 72 65 65 6e 5f 64 75 6d | 70 24 29 0d 0d b6 3f f1 |reen_dum|p$)...?.|
|00002650| 8a 31 30 2c 31 33 29 22 | 35 2e 2e 2e 2e 50 72 69 |.10,13)"|5....Pri|
|00002660| 6e 74 65 72 20 65 6e 61 | 62 6c 65 2f 64 69 73 61 |nter ena|ble/disa|
|00002670| 62 6c 65 22 8a 34 30 29 | a4 65 6e 61 62 6c 65 64 |ble".40)|.enabled|
|00002680| 28 70 72 69 6e 74 65 72 | 25 29 0d 0d c0 2d f1 8a |(printer|%)...-..|
|00002690| 31 30 2c 31 34 29 22 36 | 2e 2e 2e 2e 50 6f 69 6e |10,14)"6|....Poin|
|000026a0| 74 73 20 70 6c 6f 74 74 | 65 64 22 8a 34 30 29 3b |ts plott|ed".40);|
|000026b0| 70 6f 69 6e 74 73 25 0d | 0d ca 34 f1 8a 31 30 2c |points%.|..4..10,|
|000026c0| 31 35 29 22 37 2e 2e 2e | 2e 4d 61 78 20 66 75 6e |15)"7...|.Max fun|
|000026d0| 63 74 69 6f 6e 73 20 69 | 6e 20 64 61 74 61 62 61 |ctions i|n databa|
|000026e0| 73 65 22 8a 34 30 29 3b | 6d 61 78 0d 0d d4 41 f1 |se".40);|max...A.|
|000026f0| 8a 31 30 2c 31 36 29 22 | 38 2e 2e 2e 2e 4f 53 20 |.10,16)"|8....OS |
|00002700| 63 6f 6d 6d 61 6e 64 73 | 20 65 6e 61 62 6c 65 2f |commands| enable/|
|00002710| 64 69 73 61 62 6c 65 22 | 8a 34 30 29 a4 65 6e 61 |disable"|.40).ena|
|00002720| 62 6c 65 64 28 6f 73 5f | 6f 6b 25 29 0d 0d de 46 |bled(os_|ok%)...F|
|00002730| f1 8a 31 30 2c 31 37 29 | 22 39 2e 2e 2e 2e 43 6f |..10,17)|"9....Co|
|00002740| 6e 66 69 67 75 72 65 20 | 65 6e 61 62 6c 65 2f 64 |nfigure |enable/d|
|00002750| 69 73 61 62 6c 65 22 8a | 34 30 29 a4 65 6e 61 62 |isable".|40).enab|
|00002760| 6c 65 64 28 63 6f 6e 66 | 69 67 75 72 65 5f 6f 6b |led(conf|igure_ok|
|00002770| 25 29 0d 0d e8 39 f1 8a | 31 30 2c 31 38 29 22 30 |%)...9..|10,18)"0|
|00002780| 2e 2e 2e 2e 53 65 74 20 | 63 6f 6e 66 69 67 75 72 |....Set |configur|
|00002790| 65 20 70 61 73 73 77 6f | 72 64 22 8a 34 30 29 63 |e passwo|rd".40)c|
|000027a0| 6f 6e 66 69 67 5f 70 61 | 73 73 24 0d 0d f2 26 f1 |onfig_pa|ss$...&.|
|000027b0| 8a 31 30 2c 32 30 29 22 | 52 2e 2e 2e 2e 52 65 74 |.10,20)"|R....Ret|
|000027c0| 75 72 6e 20 74 6f 20 6d | 61 69 6e 20 6d 65 6e 75 |urn to m|ain menu|
|000027d0| 22 0d 0d fc 23 f1 8a 32 | 2c 32 33 29 22 57 68 69 |"...#..2|,23)"Whi|
|000027e0| 63 68 20 64 6f 20 79 6f | 75 20 77 61 6e 74 3f 20 |ch do yo|u want? |
|000027f0| 5b 20 5d 22 0d 0e 06 50 | f1 8a 32 2c 32 36 29 22 |[ ]"...P|..2,26)"|
|00002800| 52 75 6e 6e 69 6e 67 20 | 6f 6e 3a 20 22 3b 63 6f |Running |on: ";co|
|00002810| 6d 70 75 74 65 72 24 3b | 8a 33 38 29 3b 22 54 65 |mputer$;|.38);"Te|
|00002820| 72 6d 69 6e 61 74 65 20 | 6f 6e 20 65 72 72 6f 72 |rminate |on error|
|00002830| 3a 20 22 3b a4 65 6e 61 | 62 6c 65 64 28 64 65 62 |: ";.ena|bled(deb|
|00002840| 75 67 25 29 0d 0e 10 46 | f1 8a 32 2c 32 37 29 22 |ug%)...F|..2,27)"|
|00002850| 46 75 6e 63 74 69 6f 6e | 73 3a 20 20 22 3b 66 75 |Function|s: ";fu|
|00002860| 6e 63 74 69 6f 6e 25 3b | 8a 33 38 29 3b 22 53 69 |nction%;|.38);"Si|
|00002870| 7a 65 20 6f 66 20 64 61 | 74 61 62 61 73 65 3a 20 |ze of da|tabase: |
|00002880| 20 22 3b 73 74 6f 72 65 | 64 25 0d 0e 1a 0a f2 74 | ";store|d%.....t|
|00002890| 69 74 6c 65 0d 0e 24 12 | f2 73 68 6f 77 5f 74 69 |itle..$.|.show_ti|
|000028a0| 6d 65 28 33 30 29 0d 0e | 2e 05 f5 0d 0e 38 0a 78 |me(30)..|.....8.x|
|000028b0| 3d a6 28 30 29 0d 0e 42 | 1e e7 20 78 3c 3e 2d 31 |=.(0)..B|.. x<>-1|
|000028c0| 20 4b 45 59 24 3d bd 78 | 20 8b 20 4b 45 59 24 3d | KEY$=.x| . KEY$=|
|000028d0| 22 20 22 0d 0e 4c 21 e7 | 20 91 3e 31 30 30 30 20 |" "..L!.| .>1000 |
|000028e0| 8c 20 d1 3d 30 3a f2 73 | 68 6f 77 5f 74 69 6d 65 |. .=0:.s|how_time|
|000028f0| 28 33 30 29 0d 0e 56 0e | f1 20 8a 32 32 2c 32 33 |(30)..V.|. .22,23|
|00002900| 29 3b 0d 0e 60 1a fd 20 | a7 22 31 32 33 34 35 36 |);..`.. |."123456|
|00002910| 37 38 39 30 52 22 2c 4b | 45 59 24 29 0d 0e 6a 37 |7890R",K|EY$)..j7|
|00002920| e7 20 4b 45 59 24 3d 22 | 31 22 20 e8 8a 31 2c 32 |. KEY$="|1" ..1,2|
|00002930| 38 29 22 52 6f 6f 74 20 | 64 69 72 65 63 74 6f 72 |8)"Root |director|
|00002940| 79 3a 20 22 72 6f 6f 74 | 5f 64 69 72 65 63 74 6f |y: "root|_directo|
|00002950| 72 79 24 0d 0e 74 3b e7 | 20 4b 45 59 24 3d 22 32 |ry$..t;.| KEY$="2|
|00002960| 22 20 e8 8a 31 2c 32 38 | 29 22 44 65 66 61 75 6c |" ..1,28|)"Defaul|
|00002970| 74 20 64 61 74 61 62 61 | 73 65 3a 20 22 64 65 66 |t databa|se: "def|
|00002980| 61 75 6c 74 5f 64 61 74 | 61 62 61 73 65 24 0d 0e |ault_dat|abase$..|
|00002990| 7e 39 e7 20 4b 45 59 24 | 3d 22 33 22 20 e8 8a 31 |~9. KEY$|="3" ..1|
|000029a0| 2c 32 38 29 22 53 63 72 | 65 65 6e 20 64 75 6d 70 |,28)"Scr|een dump|
|000029b0| 20 70 72 6f 67 72 61 6d | 3a 20 22 73 63 72 65 65 | program|: "scree|
|000029c0| 6e 5f 70 72 6f 67 24 0d | 0e 88 3a e7 20 4b 45 59 |n_prog$.|..:. KEY|
|000029d0| 24 3d 22 34 22 20 e8 8a | 31 2c 32 38 29 22 53 63 |$="4" ..|1,28)"Sc|
|000029e0| 72 65 65 6e 20 64 75 6d | 70 20 63 6f 6d 6d 61 6e |reen dum|p comman|
|000029f0| 64 3a 20 2a 22 73 63 72 | 65 65 6e 5f 64 75 6d 70 |d: *"scr|een_dump|
|00002a00| 24 0d 0e 92 29 e7 20 4b | 45 59 24 3d 22 35 22 20 |$...). K|EY$="5" |
|00002a10| 70 72 69 6e 74 65 72 25 | 3d a4 74 6f 67 67 6c 65 |printer%|=.toggle|
|00002a20| 28 70 72 69 6e 74 65 72 | 25 29 0d 0e 9c 2f e7 20 |(printer|%).../. |
|00002a30| 4b 45 59 24 3d 22 36 22 | 20 e8 8a 31 2c 32 38 29 |KEY$="6"| ..1,28)|
|00002a40| 22 50 6f 69 6e 74 73 20 | 70 6c 6f 74 74 65 64 3a |"Points |plotted:|
|00002a50| 20 22 70 6f 69 6e 74 73 | 25 0d 0e a6 38 e7 20 4b | "points|%...8. K|
|00002a60| 45 59 24 3d 22 37 22 20 | e8 8a 31 2c 32 38 29 22 |EY$="7" |..1,28)"|
|00002a70| 4d 61 78 69 6d 75 6d 20 | 6e 75 6d 62 65 72 20 6f |Maximum |number o|
|00002a80| 66 20 66 75 6e 63 74 69 | 6f 6e 73 3a 20 22 6d 61 |f functi|ons: "ma|
|00002a90| 78 0d 0e b0 25 e7 20 4b | 45 59 24 3d 22 38 22 20 |x...%. K|EY$="8" |
|00002aa0| 6f 73 5f 6f 6b 25 3d a4 | 74 6f 67 67 6c 65 28 6f |os_ok%=.|toggle(o|
|00002ab0| 73 5f 6f 6b 25 29 0d 0e | ba 33 e7 20 4b 45 59 24 |s_ok%)..|.3. KEY$|
|00002ac0| 3d 22 39 22 20 63 6f 6e | 66 69 67 75 72 65 5f 6f |="9" con|figure_o|
|00002ad0| 6b 25 3d a4 74 6f 67 67 | 6c 65 28 63 6f 6e 66 69 |k%=.togg|le(confi|
|00002ae0| 67 75 72 65 5f 6f 6b 25 | 29 0d 0e c4 38 e7 20 4b |gure_ok%|)...8. K|
|00002af0| 45 59 24 3d 22 30 22 20 | e8 8a 31 2c 32 38 29 22 |EY$="0" |..1,28)"|
|00002b00| 43 6f 6e 66 69 67 75 72 | 65 20 70 61 73 73 77 6f |Configur|e passwo|
|00002b10| 72 64 3a 20 22 63 6f 6e | 66 69 67 5f 70 61 73 73 |rd: "con|fig_pass|
|00002b20| 24 0d 0e ce 0e fd 20 4b | 45 59 24 3d 22 52 22 0d |$..... K|EY$="R".|
|00002b30| 0e d8 13 f2 73 61 76 65 | 5f 63 6f 6e 66 69 67 75 |....save|_configu|
|00002b40| 72 65 0d 0e e2 05 e1 0d | 0e ec 05 3a 0d 0e f6 12 |re......|...:....|
|00002b50| dd f2 64 61 74 61 62 61 | 73 65 5f 6f 70 73 0d 0f |..databa|se_ops..|
|00002b60| 00 21 ea 20 4b 45 59 24 | 2c 78 2c 70 61 67 65 25 |.!. KEY$|,x,page%|
|00002b70| 2c 68 69 67 68 25 2c 6f | 6c 64 68 69 67 68 25 0d |,high%,o|ldhigh%.|
|00002b80| 0f 0a 1e 68 69 67 68 25 | 3d 31 3a 6f 6c 64 68 69 |...high%|=1:oldhi|
|00002b90| 67 68 25 3d 30 3a 70 61 | 67 65 25 3d 30 0d 0f 14 |gh%=0:pa|ge%=0...|
|00002ba0| 05 f5 0d 0f 1e 10 db 3a | ef 31 39 2c 30 2c 34 3b |.......:|.19,0,4;|
|00002bb0| 30 3b 0d 0f 28 36 f1 8a | 30 2c 34 29 a4 63 65 6e |0;..(6..|0,4).cen|
|00002bc0| 74 72 65 28 22 44 20 41 | 20 54 20 41 20 42 20 41 |tre("D A| T A B A|
|00002bd0| 20 53 20 45 20 20 20 20 | 20 4f 20 50 20 54 20 49 | S E | O P T I|
|00002be0| 20 4f 20 4e 20 53 22 29 | 0d 0f 32 31 f1 8a 32 2c | O N S")|..21..2,|
|00002bf0| 36 29 22 50 6c 65 61 73 | 65 20 73 65 6c 65 63 74 |6)"Pleas|e select|
|00002c00| 20 6f 70 74 69 6f 6e 20 | 77 69 74 68 20 6e 75 6d | option |with num|
|00002c10| 62 65 72 20 6b 65 79 3a | 22 0d 0f 3c 29 f1 8a 31 |ber key:|"..<)..1|
|00002c20| 30 2c 38 29 22 31 2e 2e | 2e 2e 4c 6f 61 64 20 64 |0,8)"1..|..Load d|
|00002c30| 61 74 61 62 61 73 65 20 | 66 72 6f 6d 20 64 69 73 |atabase |from dis|
|00002c40| 6b 22 0d 0f 46 5c e7 20 | 73 74 6f 72 65 64 25 3d |k"..F\. |stored%=|
|00002c50| 30 20 8c 20 f1 8a 38 2c | 39 29 22 2a 20 32 2e 2e |0 . ..8,|9)"* 2..|
|00002c60| 2e 2e 53 61 76 65 20 64 | 61 74 61 62 61 73 65 20 |..Save d|atabase |
|00002c70| 74 6f 20 64 69 73 6b 22 | 20 8b 20 f1 8a 31 30 2c |to disk"| . ..10,|
|00002c80| 39 29 22 32 2e 2e 2e 2e | 53 61 76 65 20 64 61 74 |9)"2....|Save dat|
|00002c90| 61 62 61 73 65 20 74 6f | 20 64 69 73 6b 22 0d 0f |abase to| disk"..|
|00002ca0| 50 73 e7 20 73 74 6f 72 | 65 64 25 3c 70 61 67 65 |Ps. stor|ed%<page|
|00002cb0| 25 2a 31 30 2b 68 69 67 | 68 25 20 8c 20 f1 8a 38 |%*10+hig|h% . ..8|
|00002cc0| 2c 31 30 29 22 2a 20 33 | 2e 2e 2e 2e 44 65 6c 65 |,10)"* 3|....Dele|
|00002cd0| 74 65 20 6c 69 6e 65 20 | 66 72 6f 6d 20 64 61 74 |te line |from dat|
|00002ce0| 61 62 61 73 65 22 20 8b | 20 f1 8a 31 30 2c 31 30 |abase" .| ..10,10|
|00002cf0| 29 22 33 2e 2e 2e 2e 44 | 65 6c 65 74 65 20 6c 69 |)"3....D|elete li|
|00002d00| 6e 65 20 66 72 6f 6d 20 | 64 61 74 61 62 61 73 65 |ne from |database|
|00002d10| 22 0d 0f 5a 3e f1 8a 31 | 30 2c 31 31 29 bd 31 33 |"..Z>..1|0,11).13|
|00002d20| 39 3b 22 2e 2e 2e 2e 53 | 65 6c 65 63 74 20 6c 69 |9;"....S|elect li|
|00002d30| 6e 65 20 20 20 20 20 50 | 44 2e 2e 2e 4e 65 78 74 |ne P|D...Next|
|00002d40| 20 70 61 67 65 20 6f 66 | 20 6c 69 6e 65 73 22 0d | page of| lines".|
|00002d50| 0f 64 42 f1 8a 31 30 2c | 31 32 29 bd 31 33 38 3b |.dB..10,|12).138;|
|00002d60| 22 2e 2e 2e 2e 53 65 6c | 65 63 74 20 6c 69 6e 65 |"....Sel|ect line|
|00002d70| 20 20 20 20 20 50 55 2e | 2e 2e 50 72 65 76 69 6f | PU.|..Previo|
|00002d80| 75 73 20 70 61 67 65 20 | 6f 66 20 6c 69 6e 65 73 |us page |of lines|
|00002d90| 22 0d 0f 6e 26 f1 8a 31 | 30 2c 31 33 29 22 52 2e |"..n&..1|0,13)"R.|
|00002da0| 2e 2e 2e 52 65 74 75 72 | 6e 20 74 6f 20 6d 61 69 |...Retur|n to mai|
|00002db0| 6e 20 6d 65 6e 75 22 0d | 0f 78 23 f1 8a 32 2c 31 |n menu".|.x#..2,1|
|00002dc0| 35 29 22 57 68 69 63 68 | 20 64 6f 20 79 6f 75 20 |5)"Which| do you |
|00002dd0| 77 61 6e 74 3f 20 5b 20 | 5d 22 0d 0f 82 13 f1 8a |want? [ |]"......|
|00002de0| 31 2c 31 36 29 c4 37 38 | 2c 22 5f 22 29 0d 0f 8c |1,16).78|,"_")...|
|00002df0| 19 f2 73 68 6f 77 5f 64 | 61 74 61 62 61 73 65 28 |..show_d|atabase(|
|00002e00| 70 61 67 65 25 29 0d 0f | 96 0a f2 74 69 74 6c 65 |page%)..|...title|
|00002e10| 0d 0f a0 12 f2 73 68 6f | 77 5f 74 69 6d 65 28 33 |.....sho|w_time(3|
|00002e20| 30 29 0d 0f aa 31 f2 68 | 69 67 68 5f 73 74 6f 72 |0)...1.h|igh_stor|
|00002e30| 65 64 5f 66 6f 72 6d 75 | 6c 61 28 31 36 2c 68 69 |ed_formu|la(16,hi|
|00002e40| 67 68 25 2c 70 61 67 65 | 25 2a 31 30 2b 68 69 67 |gh%,page|%*10+hig|
|00002e50| 68 25 29 0d 0f b4 21 6f | 6c 64 70 61 67 65 25 3d |h%)...!o|ldpage%=|
|00002e60| 70 61 67 65 25 3a 6f 6c | 64 68 69 67 68 25 3d 68 |page%:ol|dhigh%=h|
|00002e70| 69 67 68 25 0d 0f be 05 | f5 0d 0f c8 24 e7 20 a6 |igh%....|....$. .|
|00002e80| 28 2d 36 34 29 20 80 20 | 70 61 67 65 25 3e 30 20 |(-64) . |page%>0 |
|00002e90| 70 61 67 65 25 3d 70 61 | 67 65 25 2d 31 0d 0f d2 |page%=pa|ge%-1...|
|00002ea0| 24 e7 20 a6 28 2d 37 39 | 29 20 80 20 70 61 67 65 |$. .(-79|) . page|
|00002eb0| 25 3c 39 20 70 61 67 65 | 25 3d 70 61 67 65 25 2b |%<9 page|%=page%+|
|00002ec0| 31 0d 0f dc 37 e7 20 a6 | 28 2d 35 38 29 20 68 69 |1...7. .|(-58) hi|
|00002ed0| 67 68 25 3d 68 69 67 68 | 25 2d 31 3a f2 77 61 69 |gh%=high|%-1:.wai|
|00002ee0| 74 28 31 30 29 3a e7 20 | 68 69 67 68 25 3d 30 20 |t(10):. |high%=0 |
|00002ef0| 68 69 67 68 25 3d 31 30 | 0d 0f e6 37 e7 20 a6 28 |high%=10|...7. .(|
|00002f00| 2d 34 32 29 20 68 69 67 | 68 25 3d 68 69 67 68 25 |-42) hig|h%=high%|
|00002f10| 2b 31 3a f2 77 61 69 74 | 28 31 30 29 3a e7 20 68 |+1:.wait|(10):. h|
|00002f20| 69 67 68 25 3d 31 31 20 | 68 69 67 68 25 3d 31 0d |igh%=11 |high%=1.|
|00002f30| 0f f0 0a 78 3d a6 28 30 | 29 0d 0f fa 1e e7 20 78 |...x=.(0|)..... x|
|00002f40| 3c 3e 2d 31 20 4b 45 59 | 24 3d bd 78 20 8b 20 4b |<>-1 KEY|$=.x . K|
|00002f50| 45 59 24 3d 22 20 22 0d | 10 04 21 e7 20 91 3e 31 |EY$=" ".|..!. .>1|
|00002f60| 30 30 30 20 8c 20 d1 3d | 30 3a f2 73 68 6f 77 5f |000 . .=|0:.show_|
|00002f70| 74 69 6d 65 28 33 30 29 | 0d 10 0e 0e f1 20 8a 32 |time(30)|..... .2|
|00002f80| 32 2c 31 35 29 3b 0d 10 | 18 3c fd 20 a7 22 31 32 |2,15);..|.<. ."12|
|00002f90| 33 34 35 36 37 38 52 22 | 2c 4b 45 59 24 29 20 84 |345678R"|,KEY$) .|
|00002fa0| 20 6f 6c 64 70 61 67 65 | 25 3c 3e 70 61 67 65 25 | oldpage|%<>page%|
|00002fb0| 20 84 20 6f 6c 64 68 69 | 67 68 25 3c 3e 68 69 67 | . oldhi|gh%<>hig|
|00002fc0| 68 25 0d 10 22 29 e7 20 | 4b 45 59 24 3d 22 31 22 |h%.."). |KEY$="1"|
|00002fd0| 20 8c 20 f2 6c 6f 61 64 | 28 64 65 66 61 75 6c 74 | . .load|(default|
|00002fe0| 5f 64 61 74 61 62 61 73 | 65 24 29 0d 10 2c 35 e7 |_databas|e$)..,5.|
|00002ff0| 20 4b 45 59 24 3d 22 32 | 22 20 80 20 73 74 6f 72 | KEY$="2|" . stor|
|00003000| 65 64 25 3e 30 20 8c 20 | f2 73 61 76 65 28 64 65 |ed%>0 . |.save(de|
|00003010| 66 61 75 6c 74 5f 64 61 | 74 61 62 61 73 65 24 29 |fault_da|tabase$)|
|00003020| 0d 10 36 51 e7 20 4b 45 | 59 24 3d 22 33 22 20 80 |..6Q. KE|Y$="3" .|
|00003030| 20 73 74 6f 72 65 64 25 | 3e 3d 70 61 67 65 25 2a | stored%|>=page%*|
|00003040| 31 30 2b 68 69 67 68 25 | 20 8c 20 f2 64 65 6c 65 |10+high%| . .dele|
|00003050| 74 65 5f 73 74 6f 72 65 | 64 5f 66 6f 72 6d 75 6c |te_store|d_formul|
|00003060| 61 28 70 61 67 65 25 2a | 31 30 2b 68 69 67 68 25 |a(page%*|10+high%|
|00003070| 29 0d 10 40 0e fd 20 4b | 45 59 24 3d 22 52 22 0d |)..@.. K|EY$="R".|
|00003080| 10 4a 05 e1 0d 10 54 05 | 3a 0d 10 5e 1a dd f2 73 |.J....T.|:..^...s|
|00003090| 68 6f 77 5f 64 61 74 61 | 62 61 73 65 28 70 61 67 |how_data|base(pag|
|000030a0| 65 25 29 0d 10 68 09 ea | 20 79 2c 6e 0d 10 72 4c |e%)..h..| y,n..rL|
|000030b0| 79 3d bc 2b 31 3a f1 8a | 31 2c 79 29 22 6e 22 8a |y=.+1:..|1,y)"n".|
|000030c0| 34 29 22 46 75 6e 63 74 | 69 6f 6e 22 8a 33 39 29 |4)"Funct|ion".39)|
|000030d0| 22 6d 69 6e 20 78 22 8a | 34 39 29 22 6d 61 78 20 |"min x".|49)"max |
|000030e0| 78 22 8a 35 39 29 22 6d | 69 6e 20 79 22 8a 36 39 |x".59)"m|in y".69|
|000030f0| 29 22 6d 61 78 20 79 22 | 0d 10 7c 21 e3 20 6e 3d |)"max y"|..|!. n=|
|00003100| 70 61 67 65 25 2a 31 30 | 2b 31 20 b8 20 28 70 61 |page%*10|+1 . (pa|
|00003110| 67 65 25 2b 31 29 2a 31 | 30 0d 10 86 09 79 3d 79 |ge%+1)*1|0....y=y|
|00003120| 2b 31 0d 10 90 59 e7 20 | 73 74 6f 72 65 64 5f 66 |+1...Y. |stored_f|
|00003130| 75 6e 63 24 28 6e 29 3c | 3e 22 22 20 f1 8a 31 2c |unc$(n)<|>"" ..1,|
|00003140| 79 29 22 22 3b 6e 3b 8a | 35 2c 79 29 22 79 3d 22 |y)"";n;.|5,y)"y="|
|00003150| 3b 73 74 6f 72 65 64 5f | 66 75 6e 63 24 28 6e 29 |;stored_|func$(n)|
|00003160| 20 8b 20 f1 8a 31 2c 79 | 29 3b 6e 3b 8a 32 30 2c | . ..1,y|);n;.20,|
|00003170| 79 29 22 3c 42 6c 61 6e | 6b 3e 22 0d 10 9a 5c f1 |y)"<Blan|k>"...\.|
|00003180| 8a 34 30 2c 79 29 3b 73 | 74 6f 72 65 64 5f 78 6d |.40,y);s|tored_xm|
|00003190| 69 6e 28 6e 29 3b 8a 35 | 30 2c 79 29 3b 73 74 6f |in(n);.5|0,y);sto|
|000031a0| 72 65 64 5f 78 6d 61 78 | 28 6e 29 3b 8a 36 30 2c |red_xmax|(n);.60,|
|000031b0| 79 29 3b 73 74 6f 72 65 | 64 5f 79 6d 69 6e 28 6e |y);store|d_ymin(n|
|000031c0| 29 3b 8a 37 30 2c 79 29 | 3b 73 74 6f 72 65 64 5f |);.70,y)|;stored_|
|000031d0| 79 6d 61 78 28 6e 29 0d | 10 a4 05 ed 0d 10 ae 05 |ymax(n).|........|
|000031e0| e1 0d 10 b8 05 3a 0d 10 | c2 24 dd f2 68 69 67 68 |.....:..|.$..high|
|000031f0| 5f 73 74 6f 72 65 64 5f | 66 6f 72 6d 75 6c 61 28 |_stored_|formula(|
|00003200| 79 2c 68 69 67 68 25 2c | 6e 29 0d 10 cc 0b fb 30 |y,high%,|n).....0|
|00003210| 3a fb 31 32 39 0d 10 d6 | 16 f1 8a 31 2c 79 2b 68 |:.129...|...1,y+h|
|00003220| 69 67 68 25 2b 32 29 22 | 22 3b 6e 0d 10 e0 57 e7 |igh%+2)"|";n...W.|
|00003230| 20 73 74 6f 72 65 64 5f | 66 75 6e 63 24 28 6e 29 | stored_|func$(n)|
|00003240| 3c 3e 22 22 20 f1 8a 35 | 2c 79 2b 68 69 67 68 25 |<>"" ..5|,y+high%|
|00003250| 2b 32 29 22 79 3d 22 3b | 73 74 6f 72 65 64 5f 66 |+2)"y=";|stored_f|
|00003260| 75 6e 63 24 28 6e 29 20 | 8b 20 f1 8a 32 30 2c 79 |unc$(n) |. ..20,y|
|00003270| 2b 68 69 67 68 25 2b 32 | 29 22 3c 42 6c 61 6e 6b |+high%+2|)"<Blank|
|00003280| 3e 22 0d 10 ea 7c f1 8a | 34 30 2c 79 2b 68 69 67 |>"...|..|40,y+hig|
|00003290| 68 25 2b 32 29 3b 73 74 | 6f 72 65 64 5f 78 6d 69 |h%+2);st|ored_xmi|
|000032a0| 6e 28 6e 29 3b 8a 35 30 | 2c 79 2b 68 69 67 68 25 |n(n);.50|,y+high%|
|000032b0| 2b 32 29 3b 73 74 6f 72 | 65 64 5f 78 6d 61 78 28 |+2);stor|ed_xmax(|
|000032c0| 6e 29 3b 8a 36 30 2c 79 | 2b 68 69 67 68 25 2b 32 |n);.60,y|+high%+2|
|000032d0| 29 3b 73 74 6f 72 65 64 | 5f 79 6d 69 6e 28 6e 29 |);stored|_ymin(n)|
|000032e0| 3b 8a 37 30 2c 79 2b 68 | 69 67 68 25 2b 32 29 3b |;.70,y+h|igh%+2);|
|000032f0| 73 74 6f 72 65 64 5f 79 | 6d 61 78 28 6e 29 0d 10 |stored_y|max(n)..|
|00003300| f4 0b fb 31 3a fb 31 32 | 38 0d 10 fe 05 e1 0d 11 |...1:.12|8.......|
|00003310| 08 05 3a 0d 11 12 1e dd | f2 64 65 6c 65 74 65 5f |..:.....|.delete_|
|00003320| 73 74 6f 72 65 64 5f 66 | 6f 72 6d 75 6c 61 28 6e |stored_f|ormula(n|
|00003330| 29 0d 11 1c 19 e7 20 6e | 3d 30 20 84 20 6e 3e 73 |)..... n|=0 . n>s|
|00003340| 74 6f 72 65 64 25 20 8c | 20 e1 0d 11 26 41 e7 20 |tored% .| ...&A. |
|00003350| 6e 3d 73 74 6f 72 65 64 | 25 20 8c 20 73 74 6f 72 |n=stored|% . stor|
|00003360| 65 64 25 3d 73 74 6f 72 | 65 64 25 2d 31 3a f2 73 |ed%=stor|ed%-1:.s|
|00003370| 74 6f 72 65 28 30 29 3a | 73 74 6f 72 65 64 25 3d |tore(0):|stored%=|
|00003380| 73 74 6f 72 65 64 25 2d | 31 3a e1 0d 11 30 15 e3 |stored%-|1:...0..|
|00003390| 20 78 3d 6e 20 b8 20 73 | 74 6f 72 65 64 25 2d 31 | x=n . s|tored%-1|
|000033a0| 0d 11 3a 4b 73 74 6f 72 | 65 64 5f 66 75 6e 63 24 |..:Kstor|ed_func$|
|000033b0| 28 78 29 3d 73 74 6f 72 | 65 64 5f 66 75 6e 63 24 |(x)=stor|ed_func$|
|000033c0| 28 78 2b 31 29 3a 73 74 | 6f 72 65 64 5f 62 61 73 |(x+1):st|ored_bas|
|000033d0| 69 63 76 24 28 78 29 3d | 73 74 6f 72 65 64 5f 62 |icv$(x)=|stored_b|
|000033e0| 61 73 69 63 76 24 28 78 | 2b 31 29 0d 11 44 43 73 |asicv$(x|+1)..DCs|
|000033f0| 74 6f 72 65 64 5f 78 6d | 69 6e 28 78 29 3d 73 74 |tored_xm|in(x)=st|
|00003400| 6f 72 65 64 5f 78 6d 69 | 6e 28 78 2b 31 29 3a 73 |ored_xmi|n(x+1):s|
|00003410| 74 6f 72 65 64 5f 78 6d | 61 78 28 78 29 3d 73 74 |tored_xm|ax(x)=st|
|00003420| 6f 72 65 64 5f 78 6d 61 | 78 28 78 2b 31 29 0d 11 |ored_xma|x(x+1)..|
|00003430| 4e 43 73 74 6f 72 65 64 | 5f 79 6d 69 6e 28 78 29 |NCstored|_ymin(x)|
|00003440| 3d 73 74 6f 72 65 64 5f | 79 6d 69 6e 28 78 2b 31 |=stored_|ymin(x+1|
|00003450| 29 3a 73 74 6f 72 65 64 | 5f 79 6d 61 78 28 78 29 |):stored|_ymax(x)|
|00003460| 3d 73 74 6f 72 65 64 5f | 79 6d 61 78 28 78 2b 31 |=stored_|ymax(x+1|
|00003470| 29 0d 11 58 05 ed 0d 11 | 62 31 73 74 6f 72 65 64 |)..X....|b1stored|
|00003480| 25 3d 73 74 6f 72 65 64 | 25 2d 31 3a f2 73 74 6f |%=stored|%-1:.sto|
|00003490| 72 65 28 30 29 3a 73 74 | 6f 72 65 64 25 3d 73 74 |re(0):st|ored%=st|
|000034a0| 6f 72 65 64 25 2d 31 0d | 11 6c 05 e1 0d 11 76 05 |ored%-1.|.l....v.|
|000034b0| 3a 0d 11 80 0e dd f2 65 | 72 72 6f 72 28 6e 29 0d |:......e|rror(n).|
|000034c0| 11 8a 07 ea 20 78 0d 11 | 94 0c db 3a f7 20 8d 64 |.... x..|...:. .d|
|000034d0| 5a 51 0d 11 9e 0d e3 20 | 78 3d 31 20 b8 20 6e 0d |ZQ..... |x=1 . n.|
|000034e0| 11 a8 0c f3 20 65 72 72 | 6f 72 24 0d 11 b2 05 ed |.... err|or$.....|
|000034f0| 0d 11 bc 1b f1 8a 31 2c | 31 30 29 20 a4 63 65 6e |......1,|10) .cen|
|00003500| 74 72 65 28 65 72 72 6f | 72 24 29 0d 11 c6 0e f2 |tre(erro|r$).....|
|00003510| 77 61 69 74 28 32 30 30 | 29 0d 11 d0 05 e1 0d 11 |wait(200|).......|
|00003520| da 29 dc 20 55 6e 61 62 | 6c 65 20 74 6f 20 63 72 |.). Unab|le to cr|
|00003530| 65 61 74 65 20 63 6f 6e | 66 69 67 75 72 61 74 69 |eate con|figurati|
|00003540| 6f 6e 20 66 69 6c 65 0d | 11 e4 27 dc 20 55 6e 61 |on file.|..'. Una|
|00003550| 62 6c 65 20 74 6f 20 72 | 65 61 64 20 63 6f 6e 66 |ble to r|ead conf|
|00003560| 69 67 75 72 61 74 69 6f | 6e 20 66 69 6c 65 0d 11 |iguratio|n file..|
|00003570| ee 3d dc 20 59 6f 75 20 | 68 61 76 65 20 65 6e 74 |.=. You |have ent|
|00003580| 65 72 65 64 20 61 6e 20 | 69 6e 63 6f 6d 70 72 65 |ered an |incompre|
|00003590| 68 65 73 69 62 6c 65 20 | 66 75 6e 63 74 69 6f 6e |hesible |function|
|000035a0| 2e 20 54 72 79 20 61 67 | 61 69 6e 0d 11 f8 23 dc |. Try ag|ain...#.|
|000035b0| 20 55 6e 61 62 6c 65 20 | 74 6f 20 66 69 6e 64 20 | Unable |to find |
|000035c0| 64 61 74 61 62 61 73 65 | 20 66 69 6c 65 2e 0d 12 |database| file...|
|000035d0| 02 23 dc 20 55 6e 61 62 | 6c 65 20 74 6f 20 73 61 |.#. Unab|le to sa|
|000035e0| 76 65 20 64 61 74 61 62 | 61 73 65 20 66 69 6c 65 |ve datab|ase file|
|000035f0| 2e 0d 12 0c 30 dc 20 4d | 61 78 69 6d 75 6d 20 58 |....0. M|aximum X|
|00003600| 20 63 61 6e 6e 6f 74 20 | 62 65 20 73 6d 61 6c 6c | cannot |be small|
|00003610| 65 72 20 74 68 61 6e 20 | 6d 69 6e 69 6d 75 6d 20 |er than |minimum |
|00003620| 58 0d 12 16 05 3a 0d 12 | 20 0f dd f2 73 79 73 5f |X....:..| ...sys_|
|00003630| 65 72 72 6f 72 0d 12 2a | 0d ef 32 36 3a db 3a d9 |error..*|..26:.:.|
|00003640| 23 30 0d 12 34 52 e7 20 | 9f 3d 31 37 20 80 20 a6 |#0..4R. |.=17 . .|
|00003650| 28 2d 31 29 20 e8 22 45 | 6e 74 65 72 20 70 61 73 |(-1) ."E|nter pas|
|00003660| 73 77 6f 72 64 3a 20 22 | 70 61 73 73 24 3a e7 20 |sword: "|pass$:. |
|00003670| 70 61 73 73 24 3d 63 6f | 6e 66 69 67 5f 70 61 73 |pass$=co|nfig_pas|
|00003680| 73 24 20 63 6f 6e 66 69 | 67 75 72 65 5f 6f 6b 25 |s$ confi|gure_ok%|
|00003690| 3d b9 3a e1 0d 12 3e 16 | db 3a f6 3a f1 22 20 61 |=.:...>.|.:.:." a|
|000036a0| 74 20 6c 69 6e 65 20 22 | 3b 9e 0d 12 48 0e f2 77 |t line "|;...H..w|
|000036b0| 61 69 74 28 31 30 30 29 | 0d 12 52 10 e7 20 64 65 |ait(100)|..R.. de|
|000036c0| 62 75 67 25 3d a3 20 e1 | 0d 12 5c 0e ef 32 32 2c |bug%=. .|..\..22,|
|000036d0| 30 3a 2a 46 58 34 0d 12 | 66 05 e0 0d 12 70 05 3a |0:*FX4..|f....p.:|
|000036e0| 0d 12 7a 0d dd f2 77 61 | 69 74 28 6e 29 0d 12 84 |..z...wa|it(n)...|
|000036f0| 07 d1 3d 30 0d 12 8e 0b | f5 20 fd 20 91 3e 6e 0d |..=0....|. . .>n.|
|00003700| 12 98 05 e1 0d 12 a2 05 | 3a 0d 12 ac 0f dd a4 74 |........|:......t|
|00003710| 6f 67 67 6c 65 28 6e 29 | 0d 12 b6 0f e7 20 6e 3d |oggle(n)|..... n=|
|00003720| 2d 31 20 8c 20 3d 30 0d | 12 c0 07 3d 2d 31 0d 12 |-1 . =0.|...=-1..|
|00003730| ca 05 3a 0d 12 d4 0b dd | f2 6f 73 63 6c 69 0d 12 |..:.....|.oscli..|
|00003740| de 08 ea 20 61 24 0d 12 | e8 38 db 3a f2 74 69 74 |... a$..|.8.:.tit|
|00003750| 6c 65 3a ef 32 38 2c 32 | 2c 33 30 2c 37 36 2c 31 |le:.28,2|,30,76,1|
|00003760| 3a f1 22 3c 52 65 74 75 | 72 6e 3e 20 74 6f 20 72 |:."<Retu|rn> to r|
|00003770| 65 74 75 72 6e 20 74 6f | 20 6d 65 6e 75 22 0d 12 |eturn to| menu"..|
|00003780| f2 05 f5 0d 12 fc 0a e8 | 22 2a 22 61 24 0d 13 06 |........|"*"a$...|
|00003790| 12 e7 20 61 24 3c 3e 22 | 22 20 ff 28 61 24 29 0d |.. a$<>"|" .(a$).|
|000037a0| 13 10 0b fd 20 61 24 3d | 22 22 0d 13 1a 09 ef 32 |.... a$=|"".....2|
|000037b0| 36 3a e1 0d 13 24 05 3a | 0d 13 2e 15 dd f2 67 65 |6:...$.:|......ge|
|000037c0| 74 5f 6e 65 77 5f 66 6f | 72 6d 75 6c 61 0d 13 38 |t_new_fo|rmula..8|
|000037d0| 0c ea 20 6e 2c 4b 45 59 | 24 0d 13 42 10 db 3a ef |.. n,KEY|$..B..:.|
|000037e0| 31 39 2c 30 2c 34 3b 30 | 3b 0d 13 4c 30 f1 8a 30 |19,0,4;0|;..L0..0|
|000037f0| 2c 34 29 a4 63 65 6e 74 | 72 65 28 22 41 20 44 20 |,4).cent|re("A D |
|00003800| 44 20 20 20 41 20 20 20 | 4e 20 45 20 57 20 20 20 |D A |N E W |
|00003810| 4c 20 49 20 4e 20 45 22 | 29 0d 13 56 16 f2 73 68 |L I N E"|)..V..sh|
|00003820| 6f 77 5f 66 6f 72 6d 75 | 6c 61 73 28 31 37 29 0d |ow_formu|las(17).|
|00003830| 13 60 0a f2 74 69 74 6c | 65 0d 13 6a 11 ef 32 38 |.`..titl|e..j..28|
|00003840| 2c 31 2c 31 36 2c 37 37 | 2c 36 0d 13 74 07 f5 3a |,1,16,77|,6..t..:|
|00003850| db 0d 13 7e 2a f1 8a 30 | 2c 30 29 22 46 75 6e 63 |...~*..0|,0)"Func|
|00003860| 74 69 6f 6e 20 22 3b 66 | 75 6e 63 74 69 6f 6e 25 |tion ";f|unction%|
|00003870| 2b 31 3b 22 20 3a 20 79 | 3d 22 3b 0d 13 88 0f e8 |+1;" : y|=";.....|
|00003880| 22 22 66 6f 72 6d 75 6c | 61 24 0d 13 92 1d e7 20 |""formul|a$..... |
|00003890| 66 6f 72 6d 75 6c 61 24 | 3d 22 22 20 fd 20 b9 3a |formula$|="" . .:|
|000038a0| ef 32 36 3a db 3a e1 0d | 13 9c 1c 66 6f 72 6d 75 |.26:.:..|...formu|
|000038b0| 6c 61 24 3d a4 63 61 73 | 65 28 66 6f 72 6d 75 6c |la$=.cas|e(formul|
|000038c0| 61 24 29 0d 13 a6 2f e7 | 20 a4 62 61 73 69 63 5f |a$).../.| .basic_|
|000038d0| 76 65 72 73 69 6f 6e 28 | 66 6f 72 6d 75 6c 61 24 |version(|formula$|
|000038e0| 2c b9 29 3d 22 22 20 8c | 20 f2 65 72 72 6f 72 28 |,.)="" .| .error(|
|000038f0| 33 29 0d 13 b0 24 fd 20 | a4 62 61 73 69 63 5f 76 |3)...$. |.basic_v|
|00003900| 65 72 73 69 6f 6e 28 66 | 6f 72 6d 75 6c 61 24 2c |ersion(f|ormula$,|
|00003910| b9 29 3c 3e 22 22 0d 13 | ba 21 6e 3d a4 73 65 61 |.)<>""..|.!n=.sea|
|00003920| 72 63 68 28 a4 61 6c 67 | 65 62 72 61 28 66 6f 72 |rch(.alg|ebra(for|
|00003930| 6d 75 6c 61 24 29 29 0d | 13 c4 51 e7 20 6e 3d 30 |mula$)).|..Q. n=0|
|00003940| 20 f1 22 54 68 69 73 20 | 66 6f 72 6d 75 6c 61 20 | ."This |formula |
|00003950| 69 73 20 6e 6f 74 20 73 | 74 6f 72 65 64 20 69 6e |is not s|tored in|
|00003960| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 2e 22 3a | the dat|abase.":|
|00003970| f2 67 65 74 5f 64 6f 6d | 61 69 6e 28 bc 2c 6e 29 |.get_dom|ain(.,n)|
|00003980| 3a ef 32 36 3a db 3a e1 | 0d 13 ce 15 f4 20 73 68 |:.26:.:.|..... sh|
|00003990| 6f 77 20 64 65 66 69 6e | 69 74 69 6f 6e 0d 13 d8 |ow defin|ition...|
|000039a0| 05 db 0d 13 e2 32 f1 20 | 22 79 3d 22 3b 73 74 6f |.....2. |"y=";sto|
|000039b0| 72 65 64 5f 66 75 6e 63 | 24 28 6e 29 3b 22 20 68 |red_func|$(n);" h|
|000039c0| 61 73 20 62 65 65 6e 20 | 73 65 65 6e 20 62 65 66 |as been |seen bef|
|000039d0| 6f 72 65 22 0d 13 ec 35 | f1 20 22 44 6f 6d 61 69 |ore"...5|. "Domai|
|000039e0| 6e 3a 20 22 3b 73 74 6f | 72 65 64 5f 78 6d 69 6e |n: ";sto|red_xmin|
|000039f0| 28 6e 29 3b 22 20 74 6f | 20 22 3b 73 74 6f 72 65 |(n);" to| ";store|
|00003a00| 64 5f 78 6d 61 78 28 6e | 29 0d 13 f6 36 f1 20 22 |d_xmax(n|)...6. "|
|00003a10| 79 20 72 61 6e 67 65 3a | 20 22 3b 73 74 6f 72 65 |y range:| ";store|
|00003a20| 64 5f 79 6d 69 6e 28 6e | 29 3b 22 20 74 6f 20 22 |d_ymin(n|);" to "|
|00003a30| 3b 73 74 6f 72 65 64 5f | 79 6d 61 78 28 6e 29 0d |;stored_|ymax(n).|
|00003a40| 14 00 30 f1 20 22 44 6f | 20 79 6f 75 20 77 69 73 |..0. "Do| you wis|
|00003a50| 68 20 74 6f 20 75 73 65 | 20 74 68 65 73 65 20 76 |h to use| these v|
|00003a60| 61 6c 75 65 73 3f 20 28 | 59 2f 4e 29 20 22 3b 0d |alues? (|Y/N) ";.|
|00003a70| 14 0a 05 f5 0d 14 14 0a | 4b 45 59 24 3d be 0d 14 |........|KEY$=...|
|00003a80| 1e 19 fd 20 4b 45 59 24 | 3d 22 59 22 20 84 20 4b |... KEY$|="Y" . K|
|00003a90| 45 59 24 3d 22 4e 22 0d | 14 28 3f e7 20 4b 45 59 |EY$="N".|.(?. KEY|
|00003aa0| 24 3d 22 4e 22 20 db 3a | f1 22 79 3d 22 3b 73 74 |$="N" .:|."y=";st|
|00003ab0| 6f 72 65 64 5f 66 75 6e | 63 24 28 6e 29 3a f2 67 |ored_fun|c$(n):.g|
|00003ac0| 65 74 5f 64 6f 6d 61 69 | 6e 28 bc 2c 6e 29 3a ef |et_domai|n(.,n):.|
|00003ad0| 32 36 3a db 3a e1 0d 14 | 32 19 66 75 6e 63 74 69 |26:.:...|2.functi|
|00003ae0| 6f 6e 25 3d 66 75 6e 63 | 74 69 6f 6e 25 2b 31 0d |on%=func|tion%+1.|
|00003af0| 14 3c 24 66 75 6e 63 24 | 28 66 75 6e 63 74 69 6f |.<$func$|(functio|
|00003b00| 6e 25 29 3d 73 74 6f 72 | 65 64 5f 66 75 6e 63 24 |n%)=stor|ed_func$|
|00003b10| 28 6e 29 0d 14 46 22 78 | 6d 69 6e 28 66 75 6e 63 |(n)..F"x|min(func|
|00003b20| 74 69 6f 6e 25 29 3d 73 | 74 6f 72 65 64 5f 78 6d |tion%)=s|tored_xm|
|00003b30| 69 6e 28 6e 29 0d 14 50 | 22 78 6d 61 78 28 66 75 |in(n)..P|"xmax(fu|
|00003b40| 6e 63 74 69 6f 6e 25 29 | 3d 73 74 6f 72 65 64 5f |nction%)|=stored_|
|00003b50| 78 6d 61 78 28 6e 29 0d | 14 5a 22 79 6d 69 6e 28 |xmax(n).|.Z"ymin(|
|00003b60| 66 75 6e 63 74 69 6f 6e | 25 29 3d 73 74 6f 72 65 |function|%)=store|
|00003b70| 64 5f 79 6d 69 6e 28 6e | 29 0d 14 64 22 79 6d 61 |d_ymin(n|)..d"yma|
|00003b80| 78 28 66 75 6e 63 74 69 | 6f 6e 25 29 3d 73 74 6f |x(functi|on%)=sto|
|00003b90| 72 65 64 5f 79 6d 61 78 | 28 6e 29 0d 14 6e 28 62 |red_ymax|(n)..n(b|
|00003ba0| 61 73 69 63 76 24 28 66 | 75 6e 63 74 69 6f 6e 25 |asicv$(f|unction%|
|00003bb0| 29 3d 73 74 6f 72 65 64 | 5f 62 61 73 69 63 76 24 |)=stored|_basicv$|
|00003bc0| 28 6e 29 0d 14 78 0b ef | 32 36 3a db 3a e1 0d 14 |(n)..x..|26:.:...|
|00003bd0| 82 05 3a 0d 14 8c 15 dd | f2 67 65 74 5f 64 6f 6d |..:.....|.get_dom|
|00003be0| 61 69 6e 28 79 2c 6e 29 | 0d 14 96 0a ea 20 4b 45 |ain(y,n)|..... KE|
|00003bf0| 59 24 0d 14 a0 43 f5 3a | db 3a f1 8a 30 2c 79 2d |Y$...C.:|.:..0,y-|
|00003c00| 32 29 20 22 46 75 6e 63 | 74 69 6f 6e 20 22 3b 66 |2) "Func|tion ";f|
|00003c10| 75 6e 63 74 69 6f 6e 25 | 2b 31 3b 22 20 3a 20 79 |unction%|+1;" : y|
|00003c20| 3d 22 3b a4 61 6c 67 65 | 62 72 61 28 66 6f 72 6d |=";.alge|bra(form|
|00003c30| 75 6c 61 24 29 0d 14 aa | 48 e8 8a 30 2c 79 29 22 |ula$)...|H..0,y)"|
|00003c40| 4d 69 6e 69 6d 75 6d 20 | 58 3a 20 22 78 6d 69 6e |Minimum |X: "xmin|
|00003c50| 69 6d 75 6d 24 3a 78 6d | 69 6e 69 6d 75 6d 3d a0 |imum$:xm|inimum=.|
|00003c60| 28 a4 62 61 73 69 63 5f | 76 65 72 73 69 6f 6e 28 |(.basic_|version(|
|00003c70| 78 6d 69 6e 69 6d 75 6d | 24 2c a3 29 29 0d 14 b4 |xminimum|$,.))...|
|00003c80| 4a e8 8a 30 2c 79 2b 31 | 29 22 4d 61 78 69 6d 75 |J..0,y+1|)"Maximu|
|00003c90| 6d 20 58 3a 20 22 78 6d | 61 78 69 6d 75 6d 24 3a |m X: "xm|aximum$:|
|00003ca0| 78 6d 61 78 69 6d 75 6d | 3d a0 28 a4 62 61 73 69 |xmaximum|=.(.basi|
|00003cb0| 63 5f 76 65 72 73 69 6f | 6e 28 78 6d 61 78 69 6d |c_versio|n(xmaxim|
|00003cc0| 75 6d 24 2c a3 29 29 0d | 14 be 24 e7 20 78 6d 61 |um$,.)).|..$. xma|
|00003cd0| 78 69 6d 75 6d 3c 3d 78 | 6d 69 6e 69 6d 75 6d 20 |ximum<=x|minimum |
|00003ce0| 8c 20 f2 65 72 72 6f 72 | 28 36 29 0d 14 c8 2c fd |. .error|(6)...,.|
|00003cf0| 20 78 6d 69 6e 69 6d 75 | 6d 3c 3e 78 6d 61 78 69 | xminimu|m<>xmaxi|
|00003d00| 6d 75 6d 20 80 20 78 6d | 61 78 69 6d 75 6d 3e 78 |mum . xm|aximum>x|
|00003d10| 6d 69 6e 69 6d 75 6d 0d | 14 d2 19 66 75 6e 63 74 |minimum.|...funct|
|00003d20| 69 6f 6e 25 3d 66 75 6e | 63 74 69 6f 6e 25 2b 31 |ion%=fun|ction%+1|
|00003d30| 0d 14 dc 31 62 61 73 69 | 63 76 24 28 66 75 6e 63 |...1basi|cv$(func|
|00003d40| 74 69 6f 6e 25 29 3d a4 | 62 61 73 69 63 5f 76 65 |tion%)=.|basic_ve|
|00003d50| 72 73 69 6f 6e 28 66 6f | 72 6d 75 6c 61 24 2c b9 |rsion(fo|rmula$,.|
|00003d60| 29 0d 14 e6 27 66 75 6e | 63 24 28 66 75 6e 63 74 |)...'fun|c$(funct|
|00003d70| 69 6f 6e 25 29 3d a4 61 | 6c 67 65 62 72 61 28 66 |ion%)=.a|lgebra(f|
|00003d80| 6f 72 6d 75 6c 61 24 29 | 0d 14 f0 1c 78 6d 69 6e |ormula$)|....xmin|
|00003d90| 28 66 75 6e 63 74 69 6f | 6e 25 29 3d 78 6d 69 6e |(functio|n%)=xmin|
|00003da0| 69 6d 75 6d 0d 14 fa 1c | 78 6d 61 78 28 66 75 6e |imum....|xmax(fun|
|00003db0| 63 74 69 6f 6e 25 29 3d | 78 6d 61 78 69 6d 75 6d |ction%)=|xmaximum|
|00003dc0| 0d 15 04 1b f2 67 65 74 | 5f 79 5f 72 61 6e 67 65 |.....get|_y_range|
|00003dd0| 28 66 75 6e 63 74 69 6f | 6e 25 29 0d 15 0e 46 f1 |(functio|n%)...F.|
|00003de0| 27 22 44 6f 20 79 6f 75 | 20 77 69 73 68 20 74 6f |'"Do you| wish to|
|00003df0| 20 73 74 6f 72 65 20 74 | 68 69 73 20 69 6e 66 6f | store t|his info|
|00003e00| 72 6d 61 74 69 6f 6e 20 | 69 6e 20 74 68 65 20 64 |rmation |in the d|
|00003e10| 61 74 61 62 61 73 65 3f | 20 28 59 2f 4e 29 20 22 |atabase?| (Y/N) "|
|00003e20| 3b 0d 15 18 05 f5 0d 15 | 22 0a 4b 45 59 24 3d be |;.......|".KEY$=.|
|00003e30| 0d 15 2c 19 fd 20 4b 45 | 59 24 3d 22 59 22 20 84 |..,.. KE|Y$="Y" .|
|00003e40| 20 4b 45 59 24 3d 22 4e | 22 0d 15 36 0a f1 20 4b | KEY$="N|"..6.. K|
|00003e50| 45 59 24 0d 15 40 10 e7 | 20 4b 45 59 24 3d 22 4e |EY$..@..| KEY$="N|
|00003e60| 22 20 e1 0d 15 4a 15 f2 | 73 74 6f 72 65 28 66 75 |" ...J..|store(fu|
|00003e70| 6e 63 74 69 6f 6e 25 29 | 0d 15 54 05 e1 0d 15 5e |nction%)|..T....^|
|00003e80| 05 3a 0d 15 68 0e dd f2 | 73 74 6f 72 65 28 78 29 |.:..h...|store(x)|
|00003e90| 0d 15 72 07 ea 20 6e 0d | 15 7c 17 6e 3d a4 73 65 |..r.. n.|.|.n=.se|
|00003ea0| 61 72 63 68 28 66 75 6e | 63 24 28 78 29 29 0d 15 |arch(fun|c$(x))..|
|00003eb0| 86 25 e7 20 6e 3d 30 20 | 73 74 6f 72 65 64 25 3d |.%. n=0 |stored%=|
|00003ec0| 73 74 6f 72 65 64 25 2b | 31 3a 6e 3d 73 74 6f 72 |stored%+|1:n=stor|
|00003ed0| 65 64 25 0d 15 90 1c 73 | 74 6f 72 65 64 5f 66 75 |ed%....s|tored_fu|
|00003ee0| 6e 63 24 28 6e 29 3d 66 | 75 6e 63 24 28 78 29 0d |nc$(n)=f|unc$(x).|
|00003ef0| 15 9a 1a 73 74 6f 72 65 | 64 5f 78 6d 69 6e 28 6e |...store|d_xmin(n|
|00003f00| 29 3d 78 6d 69 6e 28 78 | 29 0d 15 a4 1a 73 74 6f |)=xmin(x|)....sto|
|00003f10| 72 65 64 5f 78 6d 61 78 | 28 6e 29 3d 78 6d 61 78 |red_xmax|(n)=xmax|
|00003f20| 28 78 29 0d 15 ae 1a 73 | 74 6f 72 65 64 5f 79 6d |(x)....s|tored_ym|
|00003f30| 69 6e 28 6e 29 3d 79 6d | 69 6e 28 78 29 0d 15 b8 |in(n)=ym|in(x)...|
|00003f40| 1a 73 74 6f 72 65 64 5f | 79 6d 61 78 28 6e 29 3d |.stored_|ymax(n)=|
|00003f50| 79 6d 61 78 28 78 29 0d | 15 c2 20 73 74 6f 72 65 |ymax(x).|.. store|
|00003f60| 64 5f 62 61 73 69 63 76 | 24 28 6e 29 3d 62 61 73 |d_basicv|$(n)=bas|
|00003f70| 69 63 76 24 28 78 29 0d | 15 cc 05 e1 0d 15 d6 05 |icv$(x).|........|
|00003f80| 3a 0d 15 e0 10 dd a4 73 | 65 61 72 63 68 28 61 24 |:......s|earch(a$|
|00003f90| 29 0d 15 ea 07 ea 20 78 | 0d 15 f4 14 e7 20 73 74 |)..... x|..... st|
|00003fa0| 6f 72 65 64 25 3d 30 20 | 8c 20 3d 30 0d 15 fe 0f |ored%=0 |. =0....|
|00003fb0| 78 3d 30 3a f5 3a 78 3d | 78 2b 31 0d 16 08 24 fd |x=0:.:x=|x+1...$.|
|00003fc0| 20 61 24 3d 73 74 6f 72 | 65 64 5f 66 75 6e 63 24 | a$=stor|ed_func$|
|00003fd0| 28 78 29 20 84 20 78 3d | 73 74 6f 72 65 64 25 0d |(x) . x=|stored%.|
|00003fe0| 16 12 1e e7 20 61 24 3c | 3e 73 74 6f 72 65 64 5f |.... a$<|>stored_|
|00003ff0| 66 75 6e 63 24 28 78 29 | 20 8c 20 3d 30 0d 16 1c |func$(x)| . =0...|
|00004000| 06 3d 78 0d 16 26 05 3a | 0d 16 30 0e dd a4 63 61 |.=x..&.:|..0...ca|
|00004010| 73 65 28 61 24 29 0d 16 | 3a 07 ea 20 78 0d 16 44 |se(a$)..|:.. x..D|
|00004020| 0f e3 20 78 3d 31 20 b8 | 20 a9 61 24 0d 16 4e 12 |.. x=1 .| .a$..N.|
|00004030| 63 68 61 72 24 3d c1 61 | 24 2c 78 2c 31 29 0d 16 |char$=.a|$,x,1)..|
|00004040| 58 3f e7 20 97 63 68 61 | 72 24 3e 36 34 20 80 20 |X?. .cha|r$>64 . |
|00004050| 97 63 68 61 72 24 3c 39 | 31 20 8c 20 61 24 3d c0 |.char$<9|1 . a$=.|
|00004060| 61 24 2c 78 2d 31 29 2b | bd 28 97 63 68 61 72 24 |a$,x-1)+|.(.char$|
|00004070| 2b 33 32 29 2b c1 61 24 | 2c 78 2b 31 29 0d 16 62 |+32)+.a$|,x+1)..b|
|00004080| 05 ed 0d 16 6c 07 3d 61 | 24 0d 16 76 05 3a 0d 16 |....l.=a|$..v.:..|
|00004090| 80 1d dd a4 62 61 73 69 | 63 5f 76 65 72 73 69 6f |....basi|c_versio|
|000040a0| 6e 28 61 24 2c 74 65 73 | 74 25 29 0d 16 8a 13 ea |n(a$,tes|t%).....|
|000040b0| 20 78 2c 66 6c 61 67 25 | 2c 62 24 2c 63 24 0d 16 | x,flag%|,b$,c$..|
|000040c0| 94 0a f7 20 8d 74 58 57 | 0d 16 9e 05 f5 0d 16 a8 |... .tXW|........|
|000040d0| 0b f3 20 62 24 2c 63 24 | 0d 16 b2 25 e7 20 63 24 |.. b$,c$|...%. c$|
|000040e0| 3d 22 53 49 4e 22 20 80 | 20 72 61 64 25 3d a3 20 |="SIN" .| rad%=. |
|000040f0| 8c 20 63 24 3d 22 53 49 | 4e 52 41 44 22 0d 16 bc |. c$="SI|NRAD"...|
|00004100| 25 e7 20 63 24 3d 22 43 | 4f 53 22 20 80 20 72 61 |%. c$="C|OS" . ra|
|00004110| 64 25 3d a3 20 8c 20 63 | 24 3d 22 43 4f 53 52 41 |d%=. . c|$="COSRA|
|00004120| 44 22 0d 16 c6 25 e7 20 | 63 24 3d 22 54 41 4e 22 |D"...%. |c$="TAN"|
|00004130| 20 80 20 72 61 64 25 3d | a3 20 8c 20 63 24 3d 22 | . rad%=|. . c$="|
|00004140| 54 41 4e 52 41 44 22 0d | 16 d0 21 e7 20 62 24 3c |TANRAD".|..!. b$<|
|00004150| 3e 22 23 22 20 f5 20 fd | 20 a4 72 65 70 6c 61 63 |>"#" . .| .replac|
|00004160| 65 28 62 24 2c 63 24 29 | 0d 16 da 0c fd 20 62 24 |e(b$,c$)|..... b$|
|00004170| 3d 22 23 22 0d 16 e4 05 | f5 0d 16 ee 0b 66 6c 61 |="#"....|.....fla|
|00004180| 67 25 3d a3 0d 16 f8 0f | e3 20 78 3d 31 20 b8 20 |g%=.....|. x=1 . |
|00004190| a9 61 24 0d 17 02 1d 62 | 24 3d c1 61 24 2c 78 2c |.a$....b|$=.a$,x,|
|000041a0| 31 29 3a 63 24 3d c1 61 | 24 2c 78 2b 31 2c 31 29 |1):c$=.a|$,x+1,1)|
|000041b0| 0d 17 0c a8 e7 20 a7 22 | 31 32 33 34 35 36 37 38 |..... ."|12345678|
|000041c0| 39 30 61 62 63 64 65 66 | 67 68 69 6a 6b 6c 6d 6e |90abcdef|ghijklmn|
|000041d0| 6f 70 71 72 73 74 75 76 | 77 78 79 7a 29 22 2c 62 |opqrstuv|wxyz)",b|
|000041e0| 24 29 3e 30 20 80 20 a7 | 22 61 62 63 65 64 66 67 |$)>0 . .|"abcedfg|
|000041f0| 68 69 6a 6b 6c 6d 6e 6f | 70 71 72 73 74 75 76 77 |hijklmno|pqrstuvw|
|00004200| 78 79 7a 41 42 43 44 45 | 46 47 48 49 4a 4c 4d 4e |xyzABCDE|FGHIJLMN|
|00004210| 4f 50 51 52 53 54 55 56 | 57 58 59 5a 28 22 2c 63 |OPQRSTUV|WXYZ(",c|
|00004220| 24 29 3e 30 20 80 20 63 | 24 3c 3e 22 22 20 80 20 |$)>0 . c|$<>"" . |
|00004230| 66 6c 61 67 25 3d a3 20 | 8c 20 66 6c 61 67 25 3d |flag%=. |. flag%=|
|00004240| b9 3a 61 24 3d c0 61 24 | 2c 78 29 2b 22 2a 22 2b |.:a$=.a$|,x)+"*"+|
|00004250| c1 61 24 2c 78 2b 31 29 | 0d 17 16 05 ed 0d 17 20 |.a$,x+1)|....... |
|00004260| 0d fd 20 66 6c 61 67 25 | 3d a3 0d 17 2a 05 f5 0d |.. flag%|=...*...|
|00004270| 17 34 0b 66 6c 61 67 25 | 3d a3 0d 17 3e 0f e3 20 |.4.flag%|=...>.. |
|00004280| 78 3d 31 20 b8 20 a9 61 | 24 0d 17 48 0f 62 24 3d |x=1 . .a|$..H.b$=|
|00004290| c1 61 24 2c 78 2c 31 29 | 0d 17 52 70 e7 20 a7 22 |.a$,x,1)|..Rp. ."|
|000042a0| 61 62 63 64 65 66 67 68 | 69 6a 6b 6c 6d 6e 6f 70 |abcdefgh|ijklmnop|
|000042b0| 71 72 73 74 75 76 77 78 | 79 7a 22 2c 62 24 29 3e |qrstuvwx|yz",b$)>|
|000042c0| 30 20 8c 20 61 24 3d c0 | 61 24 2c 78 2d 31 29 2b |0 . a$=.|a$,x-1)+|
|000042d0| bd 28 36 34 2b a7 22 61 | 62 63 64 65 66 67 68 69 |.(64+."a|bcdefghi|
|000042e0| 6a 6b 6c 6d 6e 6f 70 71 | 72 73 74 75 76 77 78 79 |jklmnopq|rstuvwxy|
|000042f0| 7a 22 2c 62 24 29 29 2b | c1 61 24 2c 78 2b 31 29 |z",b$))+|.a$,x+1)|
|00004300| 3a 66 6c 61 67 25 3d b9 | 0d 17 5c 05 ed 0d 17 66 |:flag%=.|..\....f|
|00004310| 0d fd 20 66 6c 61 67 25 | 3d a3 0d 17 70 13 e7 20 |.. flag%|=...p.. |
|00004320| 74 65 73 74 25 3d a3 20 | 8c 20 3d 61 24 0d 17 7a |test%=. |. =a$..z|
|00004330| 33 e7 20 28 a7 61 24 2c | 22 58 22 29 3d 30 20 80 |3. (.a$,|"X")=0 .|
|00004340| 20 bb 28 61 24 29 3d 30 | 29 20 84 20 a7 61 24 2c | .(a$)=0|) . .a$,|
|00004350| 22 59 22 29 20 8c 20 3d | 22 22 20 8b 20 3d 61 24 |"Y") . =|"" . =a$|
|00004360| 0d 17 84 27 f4 20 64 6f | 20 61 6c 6c 20 6f 70 65 |...'. do| all ope|
|00004370| 72 61 74 6f 72 73 20 62 | 65 66 6f 72 65 20 76 61 |rators b|efore va|
|00004380| 72 69 61 62 6c 65 73 0d | 17 8e 3c f4 20 69 66 20 |riables.|..<. if |
|00004390| 61 6e 79 74 68 69 6e 67 | 20 72 65 6d 61 69 6e 73 |anything| remains|
|000043a0| 20 69 6e 20 6c 6f 77 65 | 72 20 63 61 73 65 20 74 | in lowe|r case t|
|000043b0| 68 65 6e 20 69 74 20 6d | 75 73 74 20 62 65 20 76 |hen it m|ust be v|
|000043c0| 6f 69 64 0d 17 98 3e dc | 20 69 6e 76 73 69 6e 2c |oid...>.| invsin,|
|000043d0| 41 53 4e 2c 69 6e 76 63 | 6f 73 2c 41 43 53 2c 69 |ASN,invc|os,ACS,i|
|000043e0| 6e 76 74 61 6e 2c 41 54 | 4e 2c 73 69 6e 2c 53 49 |nvtan,AT|N,sin,SI|
|000043f0| 4e 2c 63 6f 73 2c 43 4f | 53 2c 74 61 6e 2c 54 41 |N,cos,CO|S,tan,TA|
|00004400| 4e 0d 17 a2 25 dc 20 73 | 65 63 2c 31 2f 43 4f 53 |N...%. s|ec,1/COS|
|00004410| 2c 63 6f 73 65 63 2c 31 | 2f 53 49 4e 2c 63 6f 74 |,cosec,1|/SIN,cot|
|00004420| 2c 31 2f 54 41 4e 0d 17 | ac 41 dc 20 73 71 72 2c |,1/TAN..|.A. sqr,|
|00004430| 53 51 52 2c 6c 6e 2c 4c | 4e 2c 6c 6f 67 2c 4c 4f |SQR,ln,L|N,log,LO|
|00004440| 47 2c 64 65 67 2c 44 45 | 47 2c 72 61 64 2c 52 41 |G,deg,DE|G,rad,RA|
|00004450| 44 2c 65 78 70 2c 45 58 | 50 2c 7c 2c 41 42 53 2c |D,exp,EX|P,|,ABS,|
|00004460| 69 6e 74 2c 49 4e 54 0d | 17 b6 09 dc 20 23 2c 23 |int,INT.|.... #,#|
|00004470| 0d 17 c0 05 3a 0d 17 ca | 14 dd a4 72 65 70 6c 61 |....:...|...repla|
|00004480| 63 65 28 62 24 2c 63 24 | 29 0d 17 d4 07 ea 20 78 |ce(b$,c$|)..... x|
|00004490| 0d 17 de 0d 78 3d a7 61 | 24 2c 62 24 29 0d 17 e8 |....x=.a|$,b$)...|
|000044a0| 2c e7 20 78 3e 30 20 61 | 24 3d c0 61 24 2c 78 2d |,. x>0 a|$=.a$,x-|
|000044b0| 31 29 2b 63 24 2b c1 61 | 24 2c 78 2b a9 62 24 29 |1)+c$+.a|$,x+.b$)|
|000044c0| 3a 3d 30 20 8b 20 3d 2d | 31 0d 17 f2 05 3a 0d 17 |:=0 . =-|1....:..|
|000044d0| fc 11 dd a4 61 6c 67 65 | 62 72 61 28 61 24 29 0d |....alge|bra(a$).|
|000044e0| 18 06 07 ea 20 78 0d 18 | 10 05 f5 0d 18 1a 0b 66 |.... x..|.......f|
|000044f0| 6c 61 67 25 3d a3 0d 18 | 24 0f e3 20 78 3d 31 20 |lag%=...|$.. x=1 |
|00004500| b8 20 a9 61 24 0d 18 2e | 0f 62 24 3d c1 61 24 2c |. .a$...|.b$=.a$,|
|00004510| 78 2c 31 29 0d 18 38 31 | e7 20 62 24 3d 22 5e 22 |x,1)..81|. b$="^"|
|00004520| 20 80 20 66 6c 61 67 25 | 3d a3 20 8c 20 66 6c 61 | . flag%|=. . fla|
|00004530| 67 25 3d b9 3a 61 24 3d | a4 70 6f 77 65 72 73 28 |g%=.:a$=|.powers(|
|00004540| 78 2c 61 24 29 0d 18 42 | 05 ed 0d 18 4c 0d fd 20 |x,a$)..B|....L.. |
|00004550| 66 6c 61 67 25 3d a3 0d | 18 56 1e f5 20 fd 20 a4 |flag%=..|.V.. . .|
|00004560| 72 65 70 6c 61 63 65 28 | 22 73 71 72 22 2c bd 28 |replace(|"sqr",.(|
|00004570| 73 71 72 29 29 0d 18 60 | 38 f5 20 fd 20 a4 72 65 |sqr))..`|8. . .re|
|00004580| 70 6c 61 63 65 28 22 69 | 6e 76 73 69 6e 22 2c 22 |place("i|nvsin","|
|00004590| 73 69 6e 22 2b bd 28 6e | 65 67 5f 70 6f 77 65 72 |sin"+.(n|eg_power|
|000045a0| 29 2b bd 28 31 2b 70 6f | 77 65 72 29 29 0d 18 6a |)+.(1+po|wer))..j|
|000045b0| 07 3d 61 24 0d 18 74 05 | 3a 0d 18 7e 12 dd a4 70 |.=a$..t.|:..~...p|
|000045c0| 6f 77 65 72 73 28 78 2c | 61 24 29 0d 18 88 0a ea |owers(x,|a$).....|
|000045d0| 20 62 24 2c 6e 0d 18 92 | 09 78 3d 78 2b 31 0d 18 | b$,n...|.x=x+1..|
|000045e0| 9c 11 f5 3a 62 24 3d c1 | 61 24 2c 78 2c 31 29 0d |...:b$=.|a$,x,1).|
|000045f0| 18 a6 1f 6e 3d a7 22 30 | 31 32 33 34 35 36 37 38 |...n=."0|12345678|
|00004600| 39 61 62 63 6d 6e 70 71 | 78 22 2c 62 24 29 0d 18 |9abcmnpq|x",b$)..|
|00004610| b0 34 e7 20 6e 3e 30 20 | 80 20 62 24 3c 3e 22 22 |.4. n>0 |. b$<>""|
|00004620| 20 61 24 3d c0 61 24 2c | 78 2d 31 29 2b bd 28 6e | a$=.a$,|x-1)+.(n|
|00004630| 2b 70 6f 77 65 72 2d 31 | 29 2b c1 61 24 2c 78 2b |+power-1|)+.a$,x+|
|00004640| 31 29 0d 18 ba 17 78 3d | 78 2b 31 3a fd 20 6e 3d |1)....x=|x+1:. n=|
|00004650| 30 20 84 20 62 24 3d 22 | 22 0d 18 c4 0e 6e 3d a7 |0 . b$="|"....n=.|
|00004660| 61 24 2c 22 5e 22 29 0d | 18 ce 18 61 24 3d c0 61 |a$,"^").|...a$=.a|
|00004670| 24 2c 6e 2d 31 29 2b c1 | 61 24 2c 6e 2b 31 29 0d |$,n-1)+.|a$,n+1).|
|00004680| 18 d8 07 3d 61 24 0d 18 | e2 05 3a 0d 18 ec 0f dd |...=a$..|..:.....|
|00004690| f2 64 65 6c 65 74 65 28 | 6e 29 0d 18 f6 45 66 75 |.delete(|n)...Efu|
|000046a0| 6e 63 24 28 6e 29 3d 22 | 22 3a 78 6d 69 6e 28 6e |nc$(n)="|":xmin(n|
|000046b0| 29 3d 30 3a 78 6d 61 78 | 28 6e 29 3d 30 3a 79 6d |)=0:xmax|(n)=0:ym|
|000046c0| 69 6e 28 6e 29 3d 30 3a | 79 6d 61 78 28 6e 29 3d |in(n)=0:|ymax(n)=|
|000046d0| 30 3a 62 61 73 69 63 76 | 24 28 6e 29 3d 22 22 0d |0:basicv|$(n)="".|
|000046e0| 19 00 19 66 75 6e 63 74 | 69 6f 6e 25 3d 66 75 6e |...funct|ion%=fun|
|000046f0| 63 74 69 6f 6e 25 2d 31 | 0d 19 0a 0c e7 20 6e 3d |ction%-1|..... n=|
|00004700| 31 30 20 e1 0d 19 14 0d | e3 20 78 3d 6e 20 b8 20 |10 .....|. x=n . |
|00004710| 39 0d 19 1e 3b 66 75 6e | 63 24 28 78 29 3d 66 75 |9...;fun|c$(x)=fu|
|00004720| 6e 63 24 28 78 2b 31 29 | 3a 78 6d 69 6e 28 78 29 |nc$(x+1)|:xmin(x)|
|00004730| 3d 78 6d 69 6e 28 78 2b | 31 29 3a 78 6d 61 78 28 |=xmin(x+|1):xmax(|
|00004740| 78 29 3d 78 6d 61 78 28 | 78 2b 31 29 0d 19 28 3f |x)=xmax(|x+1)..(?|
|00004750| 79 6d 69 6e 28 78 29 3d | 79 6d 69 6e 28 78 2b 31 |ymin(x)=|ymin(x+1|
|00004760| 29 3a 79 6d 61 78 28 78 | 29 3d 79 6d 61 78 28 78 |):ymax(x|)=ymax(x|
|00004770| 2b 31 29 3a 62 61 73 69 | 63 76 24 28 78 29 3d 62 |+1):basi|cv$(x)=b|
|00004780| 61 73 69 63 76 24 28 78 | 2b 31 29 0d 19 32 05 ed |asicv$(x|+1)..2..|
|00004790| 0d 19 3c 4b 66 75 6e 63 | 24 28 31 30 29 3d 22 22 |..<Kfunc|$(10)=""|
|000047a0| 3a 78 6d 69 6e 28 31 30 | 29 3d 30 3a 78 6d 61 78 |:xmin(10|)=0:xmax|
|000047b0| 28 31 30 29 3d 30 3a 79 | 6d 69 6e 28 31 30 29 3d |(10)=0:y|min(10)=|
|000047c0| 30 3a 79 6d 61 78 28 31 | 30 29 3d 30 3a 62 61 73 |0:ymax(1|0)=0:bas|
|000047d0| 69 63 76 24 28 31 30 29 | 3d 22 22 0d 19 46 05 e1 |icv$(10)|=""..F..|
|000047e0| 0d 19 50 05 3a 0d 19 5a | 17 dd a4 72 61 64 69 61 |..P.:..Z|...radia|
|000047f0| 6e 73 5f 6f 6e 5f 6f 66 | 66 28 6e 29 0d 19 64 23 |ns_on_of|f(n)..d#|
|00004800| e7 20 6e 3d b9 20 8c 20 | 3d 22 52 61 64 69 61 6e |. n=. . |="Radian|
|00004810| 73 22 20 8b 20 3d 22 44 | 65 67 72 65 65 73 22 0d |s" . ="D|egrees".|
|00004820| 19 6e 05 3a 0d 19 78 10 | dd f2 63 68 61 72 61 63 |.n.:..x.|..charac|
|00004830| 74 65 72 73 0d 19 82 20 | ef 32 33 2c 32 32 34 2c |ters... |.23,224,|
|00004840| 32 34 2c 33 36 2c 33 36 | 2c 33 36 2c 32 34 2c 30 |24,36,36|,36,24,0|
|00004850| 2c 30 2c 30 0d 19 8c 20 | ef 32 33 2c 32 32 35 2c |,0,0... |.23,225,|
|00004860| 31 36 2c 34 38 2c 31 36 | 2c 31 36 2c 35 36 2c 30 |16,48,16|,16,56,0|
|00004870| 2c 30 2c 30 0d 19 96 1f | ef 32 33 2c 32 32 36 2c |,0,0....|.23,226,|
|00004880| 32 34 2c 33 36 2c 38 2c | 31 36 2c 36 30 2c 30 2c |24,36,8,|16,60,0,|
|00004890| 30 2c 30 0d 19 a0 1f ef | 32 33 2c 32 32 37 2c 32 |0,0.....|23,227,2|
|000048a0| 34 2c 33 36 2c 38 2c 33 | 36 2c 32 34 2c 30 2c 30 |4,36,8,3|6,24,0,0|
|000048b0| 2c 30 0d 19 aa 1f ef 32 | 33 2c 32 32 38 2c 38 2c |,0.....2|3,228,8,|
|000048c0| 32 34 2c 34 30 2c 31 32 | 34 2c 38 2c 30 2c 30 2c |24,40,12|4,8,0,0,|
|000048d0| 30 0d 19 b4 1f ef 32 33 | 2c 32 32 39 2c 36 30 2c |0.....23|,229,60,|
|000048e0| 33 32 2c 35 36 2c 34 2c | 35 36 2c 30 2c 30 2c 30 |32,56,4,|56,0,0,0|
|000048f0| 0d 19 be 20 ef 32 33 2c | 32 33 30 2c 32 38 2c 33 |... .23,|230,28,3|
|00004900| 32 2c 35 36 2c 33 36 2c | 32 34 2c 30 2c 30 2c 30 |2,56,36,|24,0,0,0|
|00004910| 0d 19 c8 1e ef 32 33 2c | 32 33 31 2c 36 30 2c 34 |.....23,|231,60,4|
|00004920| 2c 38 2c 31 36 2c 31 36 | 2c 30 2c 30 2c 30 0d 19 |,8,16,16|,0,0,0..|
|00004930| d2 20 ef 32 33 2c 32 33 | 32 2c 32 34 2c 33 36 2c |. .23,23|2,24,36,|
|00004940| 32 34 2c 33 36 2c 32 34 | 2c 30 2c 30 2c 30 0d 19 |24,36,24|,0,0,0..|
|00004950| dc 1f ef 32 33 2c 32 33 | 33 2c 32 34 2c 33 36 2c |...23,23|3,24,36,|
|00004960| 32 38 2c 34 2c 32 34 2c | 30 2c 30 2c 30 0d 19 e6 |28,4,24,|0,0,0...|
|00004970| 20 ef 32 33 2c 32 33 34 | 2c 36 30 2c 36 2c 36 32 | .23,234|,60,6,62|
|00004980| 2c 31 30 32 2c 36 32 2c | 30 2c 30 2c 30 0d 19 f0 |,102,62,|0,0,0...|
|00004990| 23 ef 32 33 2c 32 33 35 | 2c 39 36 2c 39 36 2c 31 |#.23,235|,96,96,1|
|000049a0| 32 34 2c 31 30 32 2c 31 | 32 34 2c 30 2c 30 2c 30 |24,102,1|24,0,0,0|
|000049b0| 0d 19 fa 20 ef 32 33 2c | 32 33 36 2c 32 38 2c 35 |... .23,|236,28,5|
|000049c0| 34 2c 34 38 2c 35 34 2c | 32 38 2c 30 2c 30 2c 30 |4,48,54,|28,0,0,0|
|000049d0| 0d 1a 04 21 ef 32 33 2c | 32 33 37 2c 35 34 2c 31 |...!.23,|237,54,1|
|000049e0| 30 37 2c 31 30 37 2c 39 | 39 2c 30 2c 30 2c 30 2c |07,107,9|9,0,0,0,|
|000049f0| 30 0d 1a 0e 23 ef 32 33 | 2c 32 33 38 2c 31 32 34 |0...#.23|,238,124|
|00004a00| 2c 31 30 32 2c 31 30 32 | 2c 31 30 32 2c 30 2c 30 |,102,102|,102,0,0|
|00004a10| 2c 30 2c 30 0d 1a 18 23 | ef 32 33 2c 32 33 39 2c |,0,0...#|.23,239,|
|00004a20| 31 32 34 2c 31 30 32 2c | 31 32 34 2c 39 36 2c 39 |124,102,|124,96,9|
|00004a30| 36 2c 30 2c 30 2c 30 0d | 1a 22 1f ef 32 33 2c 32 |6,0,0,0.|."..23,2|
|00004a40| 34 30 2c 36 32 2c 31 30 | 32 2c 36 32 2c 36 2c 37 |40,62,10|2,62,6,7|
|00004a50| 2c 30 2c 30 2c 30 0d 1a | 2c 21 ef 32 33 2c 32 34 |,0,0,0..|,!.23,24|
|00004a60| 31 2c 31 30 32 2c 32 34 | 2c 32 34 2c 31 30 32 2c |1,102,24|,24,102,|
|00004a70| 30 2c 30 2c 30 2c 30 0d | 1a 36 23 ef 32 33 2c 32 |0,0,0,0.|.6#.23,2|
|00004a80| 34 32 2c 33 31 2c 31 36 | 2c 31 36 2c 31 36 2c 31 |42,31,16|,16,16,1|
|00004a90| 36 2c 38 30 2c 31 37 36 | 2c 30 0d 1a 40 23 ef 32 |6,80,176|,0..@#.2|
|00004aa0| 33 2c 32 34 33 2c 30 2c | 30 2c 31 31 38 2c 31 33 |3,243,0,|0,118,13|
|00004ab0| 36 2c 31 33 36 2c 31 31 | 38 2c 30 2c 30 0d 1a 4a |6,136,11|8,0,0..J|
|00004ac0| 2b ef 32 33 2c 32 34 34 | 2c 32 34 38 2c 32 30 34 |+.23,244|,248,204|
|00004ad0| 2c 32 30 34 2c 32 31 36 | 2c 31 39 38 2c 31 39 38 |,204,216|,198,198|
|00004ae0| 2c 32 32 30 2c 31 39 32 | 0d 1a 54 22 ef 32 33 2c |,220,192|..T".23,|
|00004af0| 32 34 35 2c 30 2c 31 34 | 2c 32 37 2c 32 34 2c 32 |245,0,14|,27,24,2|
|00004b00| 34 2c 32 34 2c 32 34 2c | 32 34 0d 1a 5e 22 ef 32 |4,24,24,|24..^".2|
|00004b10| 33 2c 32 34 36 2c 32 34 | 2c 32 34 2c 32 34 2c 32 |3,246,24|,24,24,2|
|00004b20| 31 36 2c 31 31 32 2c 30 | 2c 30 2c 30 0d 1a 68 27 |16,112,0|,0,0..h'|
|00004b30| ef 32 33 2c 32 34 37 2c | 32 35 35 2c 31 39 32 2c |.23,247,|255,192,|
|00004b40| 39 36 2c 34 38 2c 34 38 | 2c 39 36 2c 31 39 32 2c |96,48,48|,96,192,|
|00004b50| 32 35 35 0d 1a 72 21 ef | 32 33 2c 32 34 38 2c 30 |255..r!.|23,248,0|
|00004b60| 2c 32 34 2c 31 32 36 2c | 32 34 2c 30 2c 31 32 36 |,24,126,|24,0,126|
|00004b70| 2c 30 2c 30 0d 1a 7c 22 | ef 32 33 2c 32 34 39 2c |,0,0..|"|.23,249,|
|00004b80| 30 2c 36 30 2c 31 30 32 | 2c 36 2c 36 30 2c 31 30 |0,60,102|,6,60,10|
|00004b90| 32 2c 36 30 2c 30 0d 1a | 86 1d ef 32 33 2c 32 35 |2,60,0..|...23,25|
|00004ba0| 30 2c 30 2c 30 2c 36 2c | 32 35 35 2c 36 2c 30 2c |0,0,0,6,|255,6,0,|
|00004bb0| 30 2c 30 0d 1a 90 24 ef | 32 33 2c 32 35 31 2c 31 |0,0...$.|23,251,1|
|00004bc0| 32 37 2c 39 36 2c 39 36 | 2c 39 36 2c 39 36 2c 39 |27,96,96|,96,96,9|
|00004bd0| 36 2c 39 36 2c 39 36 0d | 1a 9a 24 ef 32 33 2c 32 |6,96,96.|..$.23,2|
|00004be0| 35 32 2c 39 36 2c 39 36 | 2c 39 36 2c 39 36 2c 39 |52,96,96|,96,96,9|
|00004bf0| 36 2c 39 36 2c 39 36 2c | 31 32 37 0d 1a a4 1d ef |6,96,96,|127.....|
|00004c00| 32 33 2c 32 35 33 2c 32 | 35 34 2c 36 2c 36 2c 36 |23,253,2|54,6,6,6|
|00004c10| 2c 36 2c 36 2c 36 2c 36 | 0d 1a ae 1d ef 32 33 2c |,6,6,6,6|.....23,|
|00004c20| 32 35 34 2c 36 2c 36 2c | 36 2c 36 2c 36 2c 36 2c |254,6,6,|6,6,6,6,|
|00004c30| 36 2c 32 35 34 0d 1a b8 | 1c ef 32 33 2c 32 35 35 |6,254...|..23,255|
|00004c40| 2c 30 2c 30 2c 36 30 2c | 30 2c 30 2c 30 2c 30 2c |,0,0,60,|0,0,0,0,|
|00004c50| 30 0d 1a c2 40 73 71 72 | 3d 32 34 32 3a 61 6c 70 |0...@sqr|=242:alp|
|00004c60| 68 61 3d 32 34 33 3a 62 | 65 74 61 3d 32 34 34 3a |ha=243:b|eta=244:|
|00004c70| 69 6e 74 5f 74 6f 70 3d | 32 34 35 3a 69 6e 74 5f |int_top=|245:int_|
|00004c80| 62 6f 74 3d 32 34 36 3a | 73 69 67 6d 61 3d 32 34 |bot=246:|sigma=24|
|00004c90| 37 0d 1a cc 38 70 6c 75 | 73 5f 6d 69 6e 75 73 3d |7...8plu|s_minus=|
|00004ca0| 32 34 38 3a 64 65 6c 74 | 61 3d 32 34 39 3a 74 65 |248:delt|a=249:te|
|00004cb0| 6e 64 73 3d 32 35 30 3a | 74 6f 70 31 3d 32 35 31 |nds=250:|top1=251|
|00004cc0| 3a 62 6f 74 31 3d 32 35 | 32 0d 1a d6 2d 74 6f 70 |:bot1=25|2...-top|
|00004cd0| 32 3d 32 35 33 3a 62 6f | 74 32 3d 32 35 34 3a 70 |2=253:bo|t2=254:p|
|00004ce0| 6f 77 65 72 3d 32 32 34 | 3a 6e 65 67 5f 70 6f 77 |ower=224|:neg_pow|
|00004cf0| 65 72 3d 32 35 35 0d 1a | e0 05 e1 0d 1a ea 05 3a |er=255..|.......:|
|00004d00| 0d 1a f4 10 dd f2 71 75 | 61 64 72 61 74 69 63 73 |......qu|adratics|
|00004d10| 0d 1a fe 10 db 3a ef 31 | 39 2c 30 2c 34 3b 30 3b |.....:.1|9,0,4;0;|
|00004d20| 0d 1b 08 36 f1 20 8a 30 | 2c 34 29 a4 63 65 6e 74 |...6. .0|,4).cent|
|00004d30| 72 65 28 22 51 20 55 20 | 41 20 44 20 52 20 41 20 |re("Q U |A D R A |
|00004d40| 54 20 49 20 43 20 20 20 | 20 53 20 4f 20 4c 20 56 |T I C | S O L V|
|00004d50| 20 45 20 52 22 29 0d 1b | 12 0a f2 74 69 74 6c 65 | E R")..|...title|
|00004d60| 0d 1b 1c 11 ef 32 38 2c | 32 2c 33 30 2c 37 36 2c |.....28,|2,30,76,|
|00004d70| 36 0d 1b 26 54 f1 22 45 | 6e 74 65 72 20 74 68 65 |6..&T."E|nter the|
|00004d80| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 64 65 74 61 69 | followi|ng detai|
|00004d90| 6c 73 20 61 62 6f 75 74 | 20 74 68 65 20 71 75 61 |ls about| the qua|
|00004da0| 64 72 61 74 69 63 20 69 | 6e 20 74 68 65 20 66 6f |dratic i|n the fo|
|00004db0| 72 6d 20 79 3d 61 78 22 | 3b bd 32 32 36 3b 22 2b |rm y=ax"|;.226;"+|
|00004dc0| 62 78 2b 63 22 0d 1b 30 | 1d f1 27 22 43 6f 65 66 |bx+c"..0|..'"Coef|
|00004dd0| 66 20 6f 66 20 78 22 3b | bd 32 32 36 3b 22 3a 20 |f of x";|.226;": |
|00004de0| 22 3b 0d 1b 3a 0b e8 20 | 22 61 3d 22 61 0d 1b 44 |";..:.. |"a="a..D|
|00004df0| 0f e7 20 61 3d 30 20 ef | 32 36 3a e1 0d 1b 4e 16 |.. a=0 .|26:...N.|
|00004e00| f1 20 22 43 6f 65 66 66 | 20 6f 66 20 78 20 3a 20 |. "Coeff| of x : |
|00004e10| 22 3b 0d 1b 58 0b e8 20 | 22 62 3d 22 62 0d 1b 62 |";..X.. |"b="b..b|
|00004e20| 16 f1 20 22 43 6f 6e 73 | 74 61 6e 74 20 20 20 3a |.. "Cons|tant :|
|00004e30| 20 22 3b 0d 1b 6c 0b e8 | 20 22 63 3d 22 63 0d 1b | ";..l..| "c="c..|
|00004e40| 76 1d db 3a f1 22 59 6f | 75 72 20 65 71 75 61 74 |v..:."Yo|ur equat|
|00004e50| 69 6f 6e 20 69 73 20 79 | 3d 22 3b 0d 1b 80 1e e7 |ion is y|=";.....|
|00004e60| 20 61 3d 2d 31 20 f1 22 | 2d 22 3b 20 8b 20 e7 20 | a=-1 ."|-"; . . |
|00004e70| 61 3c 3e 31 20 f1 20 61 | 3b 0d 1b 8a 0f f1 20 22 |a<>1 . a|;..... "|
|00004e80| 78 22 3b bd 32 32 36 3b | 0d 1b 94 1e e7 20 62 3d |x";.226;|..... b=|
|00004e90| 2d 31 20 f1 22 2d 22 3b | 20 8b 20 e7 20 62 3e 30 |-1 ."-";| . . b>0|
|00004ea0| 20 f1 22 2b 22 3b 0d 1b | 9e 33 e7 20 62 3c 3e 30 | ."+";..|.3. b<>0|
|00004eb0| 20 80 20 62 3c 3e 31 20 | 80 20 62 3c 3e 2d 31 20 | . b<>1 |. b<>-1 |
|00004ec0| f1 22 22 3b 62 3b 22 78 | 22 3b 20 8b 20 e7 20 62 |."";b;"x|"; . . b|
|00004ed0| 3c 3e 30 20 f1 22 78 22 | 3b 0d 1b a8 0f e7 20 63 |<>0 ."x"|;..... c|
|00004ee0| 3e 30 20 f1 22 2b 22 3b | 0d 1b b2 14 e7 20 63 3d |>0 ."+";|..... c=|
|00004ef0| 30 20 f1 20 8b 20 f1 20 | 22 22 3b 63 0d 1b bc 34 |0 . . . |"";c...4|
|00004f00| f1 8a 30 2c 31 29 22 54 | 68 65 20 72 6f 6f 74 73 |..0,1)"T|he roots|
|00004f10| 20 6f 66 20 61 6e 79 20 | 71 75 61 64 72 61 74 69 | of any |quadrati|
|00004f20| 63 20 61 72 65 20 67 69 | 76 65 6e 20 62 79 3a 22 |c are gi|ven by:"|
|00004f30| 0d 1b c6 3f f1 8a 34 38 | 2c 31 29 22 78 20 3d 20 |...?..48|,1)"x = |
|00004f40| 2d 62 20 22 3b bd 28 70 | 6c 75 73 5f 6d 69 6e 75 |-b ";.(p|lus_minu|
|00004f50| 73 29 3b 22 20 22 3b bd | 28 73 71 72 29 3b 22 7b |s);" ";.|(sqr);"{|
|00004f60| 62 22 3b bd 32 32 36 3b | 22 2d 34 61 63 7d 22 0d |b";.226;|"-4ac}".|
|00004f70| 1b d0 23 f2 67 72 61 70 | 68 69 63 5f 70 72 69 6e |..#.grap|hic_prin|
|00004f80| 74 28 35 33 2c 31 2b 36 | 2c c4 31 34 2c 22 5f 22 |t(53,1+6|,.14,"_"|
|00004f90| 29 29 0d 1b da 0f f1 8a | 35 36 2c 32 29 22 32 61 |))......|56,2)"2a|
|00004fa0| 22 0d 1b e4 0f 64 3d 62 | 5e 32 2d 34 2a 61 2a 63 |"....d=b|^2-4*a*c|
|00004fb0| 0d 1b ee 36 e7 20 64 3e | 3d 30 20 72 6f 6f 74 31 |...6. d>|=0 root1|
|00004fc0| 3d 28 2d 62 2d b6 28 64 | 29 29 2f 28 32 2a 61 29 |=(-b-.(d|))/(2*a)|
|00004fd0| 3a 72 6f 6f 74 32 3d 28 | 2d 62 2b b6 28 64 29 29 |:root2=(|-b+.(d))|
|00004fe0| 2f 28 32 2a 61 29 0d 1b | f8 32 e7 20 64 3c 30 20 |/(2*a)..|.2. d<0 |
|00004ff0| f1 8a 30 2c 33 29 22 54 | 68 69 73 20 65 71 75 61 |..0,3)"T|his equa|
|00005000| 74 69 6f 6e 20 68 61 73 | 20 63 6f 6d 70 6c 65 78 |tion has| complex|
|00005010| 20 72 6f 6f 74 73 2e 22 | 0d 1c 02 41 e7 20 64 3d | roots."|...A. d=|
|00005020| 30 20 f1 8a 30 2c 33 29 | 22 78 3d 22 3b 72 6f 6f |0 ..0,3)|"x=";roo|
|00005030| 74 31 3b 22 20 74 77 69 | 63 65 2e 20 28 69 65 2e |t1;" twi|ce. (ie.|
|00005040| 20 49 74 20 69 73 20 61 | 20 70 65 72 66 65 63 74 | It is a| perfect|
|00005050| 20 73 71 75 61 72 65 29 | 22 0d 1c 0c 27 e7 20 64 | square)|"...'. d|
|00005060| 3e 30 20 f1 8a 30 2c 33 | 29 22 78 3d 22 3b 72 6f |>0 ..0,3|)"x=";ro|
|00005070| 6f 74 31 3b 22 20 6f 72 | 20 22 3b 72 6f 6f 74 32 |ot1;" or| ";root2|
|00005080| 0d 1c 16 4a f1 8a 30 2c | 35 29 22 54 68 65 20 73 |...J..0,|5)"The s|
|00005090| 75 6d 20 6f 66 20 74 68 | 65 20 72 6f 6f 74 73 20 |um of th|e roots |
|000050a0| 22 3b bd 28 61 6c 70 68 | 61 29 3b 22 2b 22 3b bd |";.(alph|a);"+";.|
|000050b0| 28 62 65 74 61 29 3b 22 | 20 69 73 20 67 69 76 65 |(beta);"| is give|
|000050c0| 6e 20 62 79 20 2d 62 2f | 61 22 0d 1c 20 49 f1 8a |n by -b/|a".. I..|
|000050d0| 30 2c 36 29 22 54 68 65 | 20 70 72 6f 64 75 63 74 |0,6)"The| product|
|000050e0| 20 6f 66 20 74 68 65 20 | 72 6f 6f 74 73 20 22 3b | of the |roots ";|
|000050f0| bd 28 61 6c 70 68 61 29 | 3b bd 28 62 65 74 61 29 |.(alpha)|;.(beta)|
|00005100| 3b 22 20 69 73 20 67 69 | 76 65 6e 20 62 79 20 63 |;" is gi|ven by c|
|00005110| 2f 61 22 0d 1c 2a 28 f1 | 8a 35 30 2c 35 29 bd 28 |/a"..*(.|.50,5).(|
|00005120| 61 6c 70 68 61 29 3b 22 | 2b 22 3b bd 28 62 65 74 |alpha);"|+";.(bet|
|00005130| 61 29 3b 22 3d 22 3b 2d | 62 2f 61 0d 1c 34 23 f1 |a);"=";-|b/a..4#.|
|00005140| 8a 35 31 2c 36 29 bd 28 | 61 6c 70 68 61 29 3b bd |.51,6).(|alpha);.|
|00005150| 28 62 65 74 61 29 3b 22 | 3d 22 3b 63 2f 61 0d 1c |(beta);"|=";c/a..|
|00005160| 3e 54 f1 8a 30 2c 38 29 | 22 54 68 65 20 65 71 75 |>T..0,8)|"The equ|
|00005170| 61 74 69 6f 6e 20 6d 61 | 79 20 61 6c 73 6f 20 62 |ation ma|y also b|
|00005180| 65 20 65 78 70 72 65 73 | 73 65 64 20 69 6e 20 74 |e expres|sed in t|
|00005190| 68 65 20 66 6f 72 6d 20 | 79 3d 61 28 78 2d 70 29 |he form |y=a(x-p)|
|000051a0| 2b 71 20 77 68 65 72 65 | 20 28 70 2c 71 29 20 69 |+q where| (p,q) i|
|000051b0| 73 22 0d 1c 48 53 f1 8a | 30 2c 39 29 22 74 68 65 |s"..HS..|0,9)"the|
|000051c0| 20 6d 61 78 20 6f 72 20 | 6d 69 6e 20 70 6f 69 6e | max or |min poin|
|000051d0| 74 2e 20 54 68 65 72 65 | 66 6f 72 65 20 78 3d 70 |t. There|fore x=p|
|000051e0| 20 69 73 20 74 68 65 20 | 6c 69 6e 65 20 6f 66 20 | is the |line of |
|000051f0| 73 79 6d 65 74 72 79 20 | 6f 66 20 74 68 65 20 63 |symetry |of the c|
|00005200| 75 72 76 65 22 0d 1c 52 | 28 f1 8a 30 2c 31 30 29 |urve"..R|(..0,10)|
|00005210| 22 61 6e 64 20 71 20 74 | 68 65 20 6d 61 78 20 6f |"and q t|he max o|
|00005220| 72 20 6d 69 6e 20 76 61 | 6c 75 65 2e 22 0d 1c 5c |r min va|lue."..\|
|00005230| 0e 70 3d 2d 62 2f 28 32 | 2a 61 29 0d 1c 66 17 71 |.p=-b/(2|*a)..f.q|
|00005240| 3d 28 34 2a 61 2a 63 2d | 62 5e 32 29 2f 28 34 2a |=(4*a*c-|b^2)/(4*|
|00005250| 61 29 0d 1c 70 10 f1 8a | 35 2c 31 31 29 22 79 3d |a)..p...|5,11)"y=|
|00005260| 22 3b 0d 1c 7a 0f e7 20 | 61 3c 30 20 f1 22 2d 22 |";..z.. |a<0 ."-"|
|00005270| 3b 0d 1c 84 19 e7 20 61 | 3c 3e 31 20 80 20 61 3c |;..... a|<>1 . a<|
|00005280| 3e 2d 31 20 f1 22 22 3b | 61 3b 0d 1c 8e 0a f1 22 |>-1 ."";|a;....."|
|00005290| 28 78 22 3b 0d 1c 98 26 | e7 20 70 3e 30 20 f1 22 |(x";...&|. p>0 ."|
|000052a0| 2d 22 3b 70 3b 20 8b 20 | e7 20 70 3c 30 20 f1 22 |-";p; . |. p<0 ."|
|000052b0| 2b 22 3b b6 28 70 5e 32 | 29 3b 0d 1c a2 0e f1 22 |+";.(p^2|);....."|
|000052c0| 29 22 3b bd 32 32 36 3b | 0d 1c ac 1e e7 20 71 3c |)";.226;|..... q<|
|000052d0| 30 20 f1 22 22 3b 71 20 | 8b 20 e7 20 71 3e 30 20 |0 ."";q |. . q>0 |
|000052e0| f1 22 2b 22 3b 71 0d 1c | b6 0b e7 20 71 3d 30 20 |."+";q..|... q=0 |
|000052f0| f1 0d 1c c0 31 f1 8a 30 | 2c 32 39 29 20 a4 63 65 |....1..0|,29) .ce|
|00005300| 6e 74 72 65 28 22 50 72 | 65 73 73 20 61 6e 79 20 |ntre("Pr|ess any |
|00005310| 6b 65 79 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 22 |key to c|ontinue"|
|00005320| 29 3b 0d 1c ca 14 f2 73 | 63 72 65 65 6e 5f 64 75 |);.....s|creen_du|
|00005330| 6d 70 3a ef 32 36 0d 1c | d4 05 e1 0d 1c de 05 3a |mp:.26..|.......:|
|00005340| 0d 1c e8 1b dd f2 67 72 | 61 70 68 69 63 5f 70 72 |......gr|aphic_pr|
|00005350| 69 6e 74 28 78 2c 79 2c | 61 24 29 0d 1c f2 06 ef |int(x,y,|a$).....|
|00005360| 35 0d 1c fc 3f e7 20 63 | 6f 6d 70 75 74 65 72 24 |5...?. c|omputer$|
|00005370| 3d 22 4e 49 4d 42 55 53 | 22 20 ec 20 78 2a 31 36 |="NIMBUS|" . x*16|
|00005380| 2c 39 39 31 2d 28 79 2a | 33 32 29 20 8b 20 ec 20 |,991-(y*|32) . . |
|00005390| 78 2a 31 36 2c 31 30 32 | 33 2d 28 79 2a 33 32 29 |x*16,102|3-(y*32)|
|000053a0| 0d 1d 06 0b f1 20 61 24 | 3a ef 34 0d 1d 10 05 e1 |..... a$|:.4.....|
|000053b0| 0d 1d 1a 05 3a 0d 1d 24 | 14 dd f2 67 65 74 5f 79 |....:..$|...get_y|
|000053c0| 5f 72 61 6e 67 65 28 6e | 29 0d 1d 2e 09 ea 20 58 |_range(n|)..... X|
|000053d0| 2c 59 0d 1d 38 27 f1 20 | 27 27 22 52 61 6e 67 69 |,Y..8'. |''"Rangi|
|000053e0| 6e 67 20 66 6f 72 20 59 | 20 76 61 6c 75 65 73 2e |ng for Y| values.|
|000053f0| 2e 2e 2e 2e 2e 2e 2e 2e | 22 0d 1d 42 17 79 6d 61 |........|"..B.yma|
|00005400| 78 28 6e 29 3d 30 3a 79 | 6d 69 6e 28 6e 29 3d 30 |x(n)=0:y|min(n)=0|
|00005410| 0d 1d 4c 35 e3 20 58 3d | 78 6d 69 6e 28 6e 29 20 |..L5. X=|xmin(n) |
|00005420| b8 20 78 6d 61 78 28 6e | 29 20 88 20 28 78 6d 61 |. xmax(n|) . (xma|
|00005430| 78 28 6e 29 2d 78 6d 69 | 6e 28 6e 29 29 2f 70 6f |x(n)-xmi|n(n))/po|
|00005440| 69 6e 74 73 25 0d 1d 56 | 13 59 3d a0 28 62 61 73 |ints%..V|.Y=.(bas|
|00005450| 69 63 76 24 28 6e 29 29 | 0d 1d 60 1b e7 20 59 3e |icv$(n))|..`.. Y>|
|00005460| 79 6d 61 78 28 6e 29 20 | 8c 20 79 6d 61 78 28 6e |ymax(n) |. ymax(n|
|00005470| 29 3d 59 0d 1d 6a 1b e7 | 20 59 3c 79 6d 69 6e 28 |)=Y..j..| Y<ymin(|
|00005480| 6e 29 20 8c 20 79 6d 69 | 6e 28 6e 29 3d 59 0d 1d |n) . ymi|n(n)=Y..|
|00005490| 74 05 ed 0d 1d 7e 29 e7 | 20 a7 62 61 73 69 63 76 |t....~).| .basicv|
|000054a0| 24 28 6e 29 2c 22 53 51 | 52 22 29 20 79 6d 69 6e |$(n),"SQ|R") ymin|
|000054b0| 28 6e 29 3d 2d 79 6d 61 | 78 28 6e 29 0d 1d 88 05 |(n)=-yma|x(n)....|
|000054c0| e1 0d 1d 92 05 3a 0d 1d | 9c 0d dd f2 70 6c 6f 74 |.....:..|....plot|
|000054d0| 61 6c 6c 0d 1d a6 10 db | 3a ef 31 39 2c 30 2c 34 |all.....|:.19,0,4|
|000054e0| 3b 30 3b 0d 1d b0 37 78 | 6d 69 6e 3d 78 6d 69 6e |;0;...7x|min=xmin|
|000054f0| 28 31 29 3a 78 6d 61 78 | 3d 78 6d 61 78 28 31 29 |(1):xmax|=xmax(1)|
|00005500| 3a 79 6d 69 6e 3d 79 6d | 69 6e 28 31 29 3a 79 6d |:ymin=ym|in(1):ym|
|00005510| 61 78 3d 79 6d 61 78 28 | 31 29 0d 1d ba 15 e3 20 |ax=ymax(|1)..... |
|00005520| 6e 3d 31 20 b8 20 66 75 | 6e 63 74 69 6f 6e 25 0d |n=1 . fu|nction%.|
|00005530| 1d c4 0b 66 6c 61 67 25 | 3d a3 0d 1d ce 2f e7 20 |...flag%|=..../. |
|00005540| 78 6d 69 6e 28 6e 29 3d | 78 6d 61 78 28 6e 29 20 |xmin(n)=|xmax(n) |
|00005550| 84 20 79 6d 69 6e 28 6e | 29 3d 79 6d 61 78 28 6e |. ymin(n|)=ymax(n|
|00005560| 29 20 66 6c 61 67 25 3d | b9 0d 1d d8 29 e7 20 78 |) flag%=|....). x|
|00005570| 6d 69 6e 28 6e 29 3c 78 | 6d 69 6e 20 80 20 66 6c |min(n)<x|min . fl|
|00005580| 61 67 25 3d a3 20 78 6d | 69 6e 3d 78 6d 69 6e 28 |ag%=. xm|in=xmin(|
|00005590| 6e 29 0d 1d e2 29 e7 20 | 78 6d 61 78 28 6e 29 3e |n)...). |xmax(n)>|
|000055a0| 78 6d 61 78 20 80 20 66 | 6c 61 67 25 3d a3 20 78 |xmax . f|lag%=. x|
|000055b0| 6d 61 78 3d 78 6d 61 78 | 28 6e 29 0d 1d ec 29 e7 |max=xmax|(n)...).|
|000055c0| 20 79 6d 69 6e 28 6e 29 | 3c 79 6d 69 6e 20 80 20 | ymin(n)|<ymin . |
|000055d0| 66 6c 61 67 25 3d a3 20 | 79 6d 69 6e 3d 79 6d 69 |flag%=. |ymin=ymi|
|000055e0| 6e 28 6e 29 0d 1d f6 29 | e7 20 79 6d 61 78 28 6e |n(n)...)|. ymax(n|
|000055f0| 29 3e 79 6d 61 78 20 80 | 20 66 6c 61 67 25 3d a3 |)>ymax .| flag%=.|
|00005600| 20 79 6d 61 78 3d 79 6d | 61 78 28 6e 29 0d 1e 00 | ymax=ym|ax(n)...|
|00005610| 05 ed 0d 1e 0a 15 e3 20 | 6e 3d 31 20 b8 20 66 75 |....... |n=1 . fu|
|00005620| 6e 63 74 69 6f 6e 25 0d | 1e 14 0b 66 6c 61 67 25 |nction%.|...flag%|
|00005630| 3d a3 0d 1e 1e 2f e7 20 | 78 6d 69 6e 28 6e 29 3d |=..../. |xmin(n)=|
|00005640| 78 6d 61 78 28 6e 29 20 | 84 20 79 6d 69 6e 28 6e |xmax(n) |. ymin(n|
|00005650| 29 3d 79 6d 61 78 28 6e | 29 20 66 6c 61 67 25 3d |)=ymax(n|) flag%=|
|00005660| b9 0d 1e 28 2e e7 20 66 | 6c 61 67 25 3d a3 20 f2 |...(.. f|lag%=. .|
|00005670| 70 6c 6f 74 6c 69 6e 65 | 28 6e 2c 78 6d 69 6e 2c |plotline|(n,xmin,|
|00005680| 78 6d 61 78 2c 79 6d 69 | 6e 2c 79 6d 61 78 29 0d |xmax,ymi|n,ymax).|
|00005690| 1e 32 14 ed 3a d4 20 31 | 2c 2d 31 35 2c 31 30 30 |.2..:. 1|,-15,100|
|000056a0| 2c 31 30 0d 1e 3c 10 f2 | 73 63 72 65 65 6e 5f 64 |,10..<..|screen_d|
|000056b0| 75 6d 70 0d 1e 46 05 e1 | 0d 1e 50 05 3a 0d 1e 5a |ump..F..|..P.:..Z|
|000056c0| 0d dd f2 70 6c 6f 74 28 | 6e 29 0d 1e 64 10 db 3a |...plot(|n)..d..:|
|000056d0| ef 31 39 2c 30 2c 34 3b | 30 3b 0d 1e 6e 29 e7 20 |.19,0,4;|0;..n). |
|000056e0| 78 6d 69 6e 28 6e 29 3d | 78 6d 61 78 28 6e 29 20 |xmin(n)=|xmax(n) |
|000056f0| 84 20 79 6d 69 6e 28 6e | 29 3d 79 6d 61 78 28 6e |. ymin(n|)=ymax(n|
|00005700| 29 20 e1 0d 1e 78 30 f2 | 70 6c 6f 74 6c 69 6e 65 |) ...x0.|plotline|
|00005710| 28 6e 2c 78 6d 69 6e 28 | 6e 29 2c 78 6d 61 78 28 |(n,xmin(|n),xmax(|
|00005720| 6e 29 2c 79 6d 69 6e 28 | 6e 29 2c 79 6d 61 78 28 |n),ymin(|n),ymax(|
|00005730| 6e 29 29 0d 1e 82 1e d4 | 20 31 2c 2d 31 35 2c 31 |n)).....| 1,-15,1|
|00005740| 30 30 2c 31 30 3a 73 63 | 72 65 65 6e 5f 64 75 6d |00,10:sc|reen_dum|
|00005750| 70 0d 1e 8c 05 e1 0d 1e | 96 05 3a 0d 1e a0 11 dd |p.......|..:.....|
|00005760| f2 69 6e 63 5f 70 6c 6f | 74 28 6e 29 0d 1e aa 10 |.inc_plo|t(n)....|
|00005770| db 3a ef 31 39 2c 30 2c | 34 3b 30 3b 0d 1e b4 22 |.:.19,0,|4;0;..."|
|00005780| f1 22 57 68 69 63 68 20 | 76 61 72 69 61 62 6c 65 |."Which |variable|
|00005790| 3a 20 22 3b 3a 61 24 3d | be 3a f1 20 61 24 0d 1e |: ";:a$=|.:. a$..|
|000057a0| be 2b e7 20 a7 22 41 42 | 43 44 45 46 47 48 49 4a |.+. ."AB|CDEFGHIJ|
|000057b0| 4b 4c 4d 4e 4f 50 51 52 | 53 54 55 56 57 58 59 5a |KLMNOPQR|STUVWXYZ|
|000057c0| 22 2c 61 24 29 3d 30 20 | e1 0d 1e c8 16 e8 22 53 |",a$)=0 |......"S|
|000057d0| 74 61 72 74 20 61 74 3a | 20 22 73 74 61 72 74 0d |tart at:| "start.|
|000057e0| 1e d2 1d e8 22 4e 75 6d | 62 65 72 20 6f 66 20 70 |...."Num|ber of p|
|000057f0| 6c 6f 74 73 3a 20 22 70 | 6c 6f 74 73 0d 1e dc 15 |lots: "p|lots....|
|00005800| e8 22 49 6e 63 72 65 6d | 65 6e 74 3a 20 22 69 6e |."Increm|ent: "in|
|00005810| 63 0d 1e e6 11 79 6d 61 | 78 3d 30 3a 79 6d 69 6e |c....yma|x=0:ymin|
|00005820| 3d 30 0d 1e f0 25 e3 20 | 61 3d 73 74 61 72 74 20 |=0...%. |a=start |
|00005830| b8 20 73 74 61 72 74 2b | 70 6c 6f 74 73 2a 69 6e |. start+|plots*in|
|00005840| 63 20 88 20 69 6e 63 0d | 1e fa 17 f2 73 65 74 5f |c . inc.|....set_|
|00005850| 76 61 72 69 61 62 6c 65 | 28 61 24 2c 61 29 0d 1f |variable|(a$,a)..|
|00005860| 04 13 f2 67 65 74 5f 79 | 5f 72 61 6e 67 65 28 6e |...get_y|_range(n|
|00005870| 29 0d 1f 0e 1f e7 20 79 | 6d 61 78 28 6e 29 3e 79 |)..... y|max(n)>y|
|00005880| 6d 61 78 20 79 6d 61 78 | 3d 79 6d 61 78 28 6e 29 |max ymax|=ymax(n)|
|00005890| 0d 1f 18 1f e7 20 79 6d | 69 6e 28 6e 29 3c 79 6d |..... ym|in(n)<ym|
|000058a0| 69 6e 20 79 6d 69 6e 3d | 79 6d 69 6e 28 6e 29 0d |in ymin=|ymin(n).|
|000058b0| 1f 22 05 ed 0d 1f 2c 05 | db 0d 1f 36 25 e3 20 61 |."....,.|...6%. a|
|000058c0| 3d 73 74 61 72 74 20 b8 | 20 73 74 61 72 74 2b 70 |=start .| start+p|
|000058d0| 6c 6f 74 73 2a 69 6e 63 | 20 88 20 69 6e 63 0d 1f |lots*inc| . inc..|
|000058e0| 40 17 f2 73 65 74 5f 76 | 61 72 69 61 62 6c 65 28 |@..set_v|ariable(|
|000058f0| 61 24 2c 61 29 0d 1f 4a | 2a f2 70 6c 6f 74 6c 69 |a$,a)..J|*.plotli|
|00005900| 6e 65 28 6e 2c 78 6d 69 | 6e 28 6e 29 2c 78 6d 61 |ne(n,xmi|n(n),xma|
|00005910| 78 28 6e 29 2c 79 6d 69 | 6e 2c 79 6d 61 78 29 0d |x(n),ymi|n,ymax).|
|00005920| 1f 54 05 ed 0d 1f 5e 13 | ef 37 3a f2 73 63 72 65 |.T....^.|.7:.scre|
|00005930| 65 6e 5f 64 75 6d 70 0d | 1f 68 05 e1 0d 1f 72 05 |en_dump.|.h....r.|
|00005940| 3a 0d 1f 7c 25 dd f2 70 | 6c 6f 74 6c 69 6e 65 28 |:..|%..p|lotline(|
|00005950| 6e 2c 6d 69 6e 58 2c 6d | 61 78 58 2c 6d 69 6e 59 |n,minX,m|axX,minY|
|00005960| 2c 6d 61 78 59 29 0d 1f | 86 07 ef 32 36 0d 1f 90 |,maxY)..|...26...|
|00005970| 13 53 71 72 25 3d 30 3a | 53 71 72 6c 70 25 3d 30 |.Sqr%=0:|Sqrlp%=0|
|00005980| 0d 1f 9a 20 e7 20 a7 62 | 61 73 69 63 76 24 28 6e |... . .b|asicv$(n|
|00005990| 29 2c 22 53 51 52 22 29 | 20 53 71 72 25 3d 2d 31 |),"SQR")| Sqr%=-1|
|000059a0| 0d 1f a4 1a 58 72 3d 6d | 61 78 58 2d 6d 69 6e 58 |....Xr=m|axX-minX|
|000059b0| 3a 58 73 3d 39 30 30 2f | 58 72 0d 1f ae 1a 59 72 |:Xs=900/|Xr....Yr|
|000059c0| 3d 6d 61 78 59 2d 6d 69 | 6e 59 3a 59 73 3d 39 30 |=maxY-mi|nY:Ys=90|
|000059d0| 30 2f 59 72 0d 1f b8 0c | 4f 78 3d 2d 6d 69 6e 58 |0/Yr....|Ox=-minX|
|000059e0| 0d 1f c2 0c 4f 79 3d 2d | 6d 69 6e 59 0d 1f cc 18 |....Oy=-|minY....|
|000059f0| c8 91 20 4f 78 2a 58 73 | 2b 35 30 2c 4f 79 2a 59 |.. Ox*Xs|+50,Oy*Y|
|00005a00| 73 2b 35 30 0d 1f d6 1b | ec 20 30 2c 6d 69 6e 59 |s+50....|. 0,minY|
|00005a10| 2a 59 73 3a df 20 30 2c | 6d 61 78 59 2a 59 73 0d |*Ys:. 0,|maxY*Ys.|
|00005a20| 1f e0 1b ec 20 6d 69 6e | 58 2a 58 73 2c 30 3a df |.... min|X*Xs,0:.|
|00005a30| 20 6d 61 78 58 2a 58 73 | 2c 30 0d 1f ea 3a e3 20 | maxX*Xs|,0...:. |
|00005a40| 78 3d 6d 69 6e 58 20 b8 | 20 6d 61 78 58 20 88 20 |x=minX .| maxX . |
|00005a50| a4 73 63 61 6c 65 28 6d | 69 6e 58 2c 6d 61 78 58 |.scale(m|inX,maxX|
|00005a60| 29 3a ec 20 78 2a 58 73 | 2c 35 3a df 78 2a 58 73 |):. x*Xs|,5:.x*Xs|
|00005a70| 2c 30 3a ed 0d 1f f4 3b | e3 20 79 3d 6d 69 6e 59 |,0:....;|. y=minY|
|00005a80| 20 b8 20 6d 61 78 59 20 | 88 20 a4 73 63 61 6c 65 | . maxY |. .scale|
|00005a90| 28 6d 69 6e 59 2c 6d 61 | 78 59 29 3a ec 20 35 2c |(minY,ma|xY):. 5,|
|00005aa0| 79 2a 59 73 3a df 20 30 | 2c 79 2a 59 73 3a ed 0d |y*Ys:. 0|,y*Ys:..|
|00005ab0| 1f fe 1d ef 35 3a ec 20 | 2d 34 35 2c 6d 69 6e 59 |....5:. |-45,minY|
|00005ac0| 2a 59 73 3a f1 22 22 3b | 6d 69 6e 59 0d 20 08 1b |*Ys:."";|minY. ..|
|00005ad0| ec 20 2d 34 35 2c 6d 61 | 78 59 2a 59 73 3a f1 20 |. -45,ma|xY*Ys:. |
|00005ae0| 22 22 3b 6d 61 78 59 0d | 20 12 1b ec 20 6d 69 6e |"";maxY.| ... min|
|00005af0| 58 2a 58 73 2c 2d 31 30 | 3a f1 20 22 22 3b 6d 69 |X*Xs,-10|:. "";mi|
|00005b00| 6e 58 0d 20 1c 1b ec 20 | 6d 61 78 58 2a 58 73 2c |nX. ... |maxX*Xs,|
|00005b10| 2d 31 30 3a f1 20 22 22 | 3b 6d 61 78 58 0d 20 26 |-10:. ""|;maxX. &|
|00005b20| 38 ec 20 6d 61 78 58 2a | 58 73 2b 31 30 2c 28 6d |8. maxX*|Xs+10,(m|
|00005b30| 61 78 59 2a 59 73 29 2d | 28 6e 2a 33 32 29 3a f1 |axY*Ys)-|(n*32):.|
|00005b40| 20 22 22 3b 6e 3b 22 2e | 2e 79 3d 22 3b 66 75 6e | "";n;".|.y=";fun|
|00005b50| 63 24 28 6e 29 0d 20 30 | 2a ef 34 2c 32 34 2c 6d |c$(n). 0|*.4,24,m|
|00005b60| 69 6e 58 2a 58 73 3b 6d | 69 6e 59 2a 59 73 3b 6d |inX*Xs;m|inY*Ys;m|
|00005b70| 61 78 58 2a 58 73 3b 6d | 61 78 59 2a 59 73 3b 0d |axX*Xs;m|axY*Ys;.|
|00005b80| 20 3a 0d 58 3d 78 6d 69 | 6e 28 6e 29 0d 20 44 1b | :.X=xmi|n(n). D.|
|00005b90| ec 20 58 2a 58 73 2c a0 | 28 62 61 73 69 63 76 24 |. X*Xs,.|(basicv$|
|00005ba0| 28 6e 29 29 2a 59 73 0d | 20 4e 26 e3 20 58 3d 78 |(n))*Ys.| N&. X=x|
|00005bb0| 6d 69 6e 28 6e 29 20 b8 | 20 78 6d 61 78 28 6e 29 |min(n) .| xmax(n)|
|00005bc0| 20 88 20 58 72 2f 70 6f | 69 6e 74 73 25 0d 20 58 | . Xr/po|ints%. X|
|00005bd0| 2f e7 20 53 71 72 6c 70 | 25 20 59 3d 2d a0 28 62 |/. Sqrlp|% Y=-.(b|
|00005be0| 61 73 69 63 76 24 28 6e | 29 29 20 8b 20 59 3d a0 |asicv$(n|)) . Y=.|
|00005bf0| 28 62 61 73 69 63 76 24 | 28 6e 29 29 0d 20 62 0f |(basicv$|(n)). b.|
|00005c00| df 20 58 2a 58 73 2c 59 | 2a 59 73 0d 20 6c 5d e7 |. X*Xs,Y|*Ys. l].|
|00005c10| 20 28 53 71 72 25 3d 2d | 31 20 80 20 58 3e 78 6d | (Sqr%=-|1 . X>xm|
|00005c20| 61 78 28 6e 29 2d 58 72 | 2f 31 30 30 30 20 80 20 |ax(n)-Xr|/1000 . |
|00005c30| 53 71 72 6c 70 25 3d 30 | 29 20 8c 20 58 3d 78 6d |Sqrlp%=0|) . X=xm|
|00005c40| 69 6e 28 6e 29 3a 53 71 | 72 6c 70 25 3d 2d 31 3a |in(n):Sq|rlp%=-1:|
|00005c50| ec 20 58 2a 58 73 2c 2d | a0 28 62 61 73 69 63 76 |. X*Xs,-|.(basicv|
|00005c60| 24 28 6e 29 29 2a 59 73 | 0d 20 76 05 ed 0d 20 80 |$(n))*Ys|. v... .|
|00005c70| 09 ef 32 36 3a e1 0d 20 | 8a 05 3a 0d 20 94 10 dd |..26:.. |..:. ...|
|00005c80| a4 73 63 61 6c 65 28 61 | 2c 62 29 0d 20 9e 1a e7 |.scale(a|,b). ...|
|00005c90| 20 62 2d 61 3c 32 30 20 | 80 20 62 2d 61 3e 3d 35 | b-a<20 |. b-a>=5|
|00005ca0| 20 8c 20 3d 31 0d 20 a8 | 17 e7 20 62 2d 61 3c 35 | . =1. .|.. b-a<5|
|00005cb0| 20 8c 20 3d 28 62 2d 61 | 29 2f 32 30 0d 20 b2 0b | . =(b-a|)/20. ..|
|00005cc0| ea 20 73 2c 74 2c 75 0d | 20 bc 0f 73 3d 28 62 2d |. s,t,u.| ..s=(b-|
|00005cd0| 61 29 20 81 32 30 0d 20 | c6 0e 74 3d 28 73 20 81 |a) .20. |..t=(s .|
|00005ce0| 32 29 2a 32 0d 20 d0 0e | 75 3d 28 73 20 81 35 29 |2)*2. ..|u=(s .5)|
|00005cf0| 2a 35 0d 20 da 23 e7 20 | 74 3e 75 20 80 20 75 3c |*5. .#. |t>u . u<|
|00005d00| 3e 30 20 8c 20 3d 75 20 | 8b 20 e7 20 74 3c 3e 30 |>0 . =u |. . t<>0|
|00005d10| 20 8c 20 3d 74 0d 20 e4 | 0d 3d 28 62 2d 61 29 2f | . =t. .|.=(b-a)/|
|00005d20| 32 30 0d 20 ee 05 3a 0d | 20 f8 18 dd f2 73 65 74 |20. ..:.| ....set|
|00005d30| 5f 76 61 72 69 61 62 6c | 65 28 61 24 2c 6e 29 0d |_variabl|e(a$,n).|
|00005d40| 21 02 12 e7 20 61 24 3d | 22 41 22 20 8c 20 41 3d |!... a$=|"A" . A=|
|00005d50| 6e 0d 21 0c 12 e7 20 61 | 24 3d 22 42 22 20 8c 20 |n.!... a|$="B" . |
|00005d60| 42 3d 6e 0d 21 16 12 e7 | 20 61 24 3d 22 43 22 20 |B=n.!...| a$="C" |
|00005d70| 8c 20 43 3d 6e 0d 21 20 | 12 e7 20 61 24 3d 22 44 |. C=n.! |.. a$="D|
|00005d80| 22 20 8c 20 44 3d 6e 0d | 21 2a 12 e7 20 61 24 3d |" . D=n.|!*.. a$=|
|00005d90| 22 45 22 20 8c 20 45 3d | 6e 0d 21 34 12 e7 20 61 |"E" . E=|n.!4.. a|
|00005da0| 24 3d 22 46 22 20 8c 20 | 46 3d 6e 0d 21 3e 12 e7 |$="F" . |F=n.!>..|
|00005db0| 20 61 24 3d 22 47 22 20 | 8c 20 47 3d 6e 0d 21 48 | a$="G" |. G=n.!H|
|00005dc0| 12 e7 20 61 24 3d 22 48 | 22 20 8c 20 48 3d 6e 0d |.. a$="H|" . H=n.|
|00005dd0| 21 52 12 e7 20 61 24 3d | 22 49 22 20 8c 20 49 3d |!R.. a$=|"I" . I=|
|00005de0| 6e 0d 21 5c 12 e7 20 61 | 24 3d 22 4a 22 20 8c 20 |n.!\.. a|$="J" . |
|00005df0| 4a 3d 6e 0d 21 66 12 e7 | 20 61 24 3d 22 4b 22 20 |J=n.!f..| a$="K" |
|00005e00| 8c 20 4b 3d 6e 0d 21 70 | 12 e7 20 61 24 3d 22 4c |. K=n.!p|.. a$="L|
|00005e10| 22 20 8c 20 4c 3d 6e 0d | 21 7a 12 e7 20 61 24 3d |" . L=n.|!z.. a$=|
|00005e20| 22 4d 22 20 8c 20 4d 3d | 6e 0d 21 84 12 e7 20 61 |"M" . M=|n.!... a|
|00005e30| 24 3d 22 4e 22 20 8c 20 | 4e 3d 6e 0d 21 8e 12 e7 |$="N" . |N=n.!...|
|00005e40| 20 61 24 3d 22 4f 22 20 | 8c 20 4f 3d 6e 0d 21 98 | a$="O" |. O=n.!.|
|00005e50| 12 e7 20 61 24 3d 22 50 | 22 20 8c 20 50 3d 6e 0d |.. a$="P|" . P=n.|
|00005e60| 21 a2 12 e7 20 61 24 3d | 22 51 22 20 8c 20 51 3d |!... a$=|"Q" . Q=|
|00005e70| 6e 0d 21 ac 12 e7 20 61 | 24 3d 22 52 22 20 8c 20 |n.!... a|$="R" . |
|00005e80| 52 3d 6e 0d 21 b6 12 e7 | 20 61 24 3d 22 53 22 20 |R=n.!...| a$="S" |
|00005e90| 8c 20 53 3d 6e 0d 21 c0 | 12 e7 20 61 24 3d 22 54 |. S=n.!.|.. a$="T|
|00005ea0| 22 20 8c 20 54 3d 6e 0d | 21 ca 12 e7 20 61 24 3d |" . T=n.|!... a$=|
|00005eb0| 22 55 22 20 8c 20 55 3d | 6e 0d 21 d4 12 e7 20 61 |"U" . U=|n.!... a|
|00005ec0| 24 3d 22 56 22 20 8c 20 | 56 3d 6e 0d 21 de 12 e7 |$="V" . |V=n.!...|
|00005ed0| 20 61 24 3d 22 57 22 20 | 8c 20 57 3d 6e 0d 21 e8 | a$="W" |. W=n.!.|
|00005ee0| 12 e7 20 61 24 3d 22 5a | 22 20 8c 20 5a 3d 6e 0d |.. a$="Z|" . Z=n.|
|00005ef0| 21 f2 05 e1 0d 21 fc 05 | 3a 0d 22 06 10 dd f2 63 |!....!..|:."....c|
|00005f00| 61 6c 63 75 6c 61 74 6f | 72 0d 22 10 08 ea 20 61 |alculato|r."... a|
|00005f10| 24 0d 22 1a 38 db 3a f2 | 74 69 74 6c 65 3a ef 32 |$.".8.:.|title:.2|
|00005f20| 38 2c 32 2c 33 30 2c 37 | 36 2c 31 3a f1 22 3c 52 |8,2,30,7|6,1:."<R|
|00005f30| 65 74 75 72 6e 3e 20 74 | 6f 20 72 65 74 75 72 6e |eturn> t|o return|
|00005f40| 20 74 6f 20 6d 65 6e 75 | 22 0d 22 24 0d 40 25 3d | to menu|"."$.@%=|
|00005f50| 26 39 30 41 3a f5 0d 22 | 2e 13 e8 22 45 76 61 6c |&90A:.."|..."Eval|
|00005f60| 75 61 74 65 3a 20 22 61 | 24 0d 22 38 17 e7 20 61 |uate: "a|$."8.. a|
|00005f70| 24 3c 3e 22 22 20 f1 22 | 3d 22 3b a0 28 61 24 29 |$<>"" ."|=";.(a$)|
|00005f80| 0d 22 42 0b fd 20 61 24 | 3d 22 22 0d 22 4c 11 40 |."B.. a$|=""."L.@|
|00005f90| 25 3d 26 34 30 41 3a ef | 32 36 3a e1 0d 22 56 05 |%=&40A:.|26:.."V.|
|00005fa0| 3a 0d 22 60 15 dd f2 64 | 69 66 66 65 72 65 6e 74 |:."`...d|ifferent|
|00005fb0| 69 61 74 69 6f 6e 0d 22 | 6a 05 e1 0d 22 74 05 3a |iation."|j..."t.:|
|00005fc0| 0d 22 7e 11 dd f2 69 6e | 74 65 67 72 61 74 69 6f |."~...in|tegratio|
|00005fd0| 6e 0d 22 88 1a db 3a f2 | 74 69 74 6c 65 3a ef 32 |n."...:.|title:.2|
|00005fe0| 38 2c 32 2c 33 30 2c 37 | 36 2c 31 0d 22 92 26 f1 |8,2,30,7|6,1.".&.|
|00005ff0| 20 a4 63 65 6e 74 72 65 | 28 22 49 20 4e 20 54 20 | .centre|("I N T |
|00006000| 45 20 47 20 52 20 41 20 | 54 20 49 20 4f 20 4e 22 |E G R A |T I O N"|
|00006010| 29 0d 22 9c 5d f1 27 22 | 54 68 65 20 67 65 6e 65 |).".].'"|The gene|
|00006020| 72 61 6c 20 72 75 6c 65 | 20 66 6f 72 20 74 68 65 |ral rule| for the|
|00006030| 20 69 6e 74 65 67 72 61 | 74 69 6f 6e 20 6f 66 20 | integra|tion of |
|00006040| 61 6e 79 20 66 75 6e 63 | 74 69 6f 6e 20 6f 66 20 |any func|tion of |
|00006050| 74 68 65 20 66 6f 72 6d | 20 78 22 3b bd 28 70 6f |the form| x";.(po|
|00006060| 77 65 72 2b 31 34 29 3b | 22 20 69 73 3a 22 0d 22 |wer+14);|" is:"."|
|00006070| a6 5c f1 27 89 35 3b bd | 28 69 6e 74 5f 74 6f 70 |.\.'.5;.|(int_top|
|00006080| 29 3b 22 20 78 22 3b bd | 28 70 6f 77 65 72 2b 31 |);" x";.|(power+1|
|00006090| 34 29 22 20 64 78 20 3d | 20 20 31 20 20 78 22 3b |4)" dx =| 1 x";|
|000060a0| bd 28 70 6f 77 65 72 2b | 31 34 29 3b bd 28 6e 65 |.(power+|14);.(ne|
|000060b0| 67 5f 70 6f 77 65 72 29 | 3b bd 28 31 2b 70 6f 77 |g_power)|;.(1+pow|
|000060c0| 65 72 29 3b 22 20 2b 20 | 63 22 0d 22 b0 22 f1 20 |er);" + |c".".". |
|000060d0| 89 35 3b bd 28 69 6e 74 | 5f 62 6f 74 29 3b 22 20 |.5;.(int|_bot);" |
|000060e0| 20 20 20 20 20 20 20 20 | 6e 2d 31 22 0d 22 ba 1e | |n-1"."..|
|000060f0| f2 67 72 61 70 68 69 63 | 5f 70 72 69 6e 74 28 31 |.graphic|_print(1|
|00006100| 37 2c 35 2c 22 5f 5f 5f | 22 29 0d 22 c4 1a f1 27 |7,5,"___|")."...'|
|00006110| 22 41 72 65 61 20 75 6e | 64 65 72 20 61 20 63 75 |"Area un|der a cu|
|00006120| 72 76 65 22 0d 22 ce 4f | f1 27 22 43 6f 6e 73 69 |rve".".O|.'"Consi|
|00006130| 64 65 72 20 74 68 65 20 | 63 75 72 76 65 20 79 3d |der the |curve y=|
|00006140| 66 28 78 29 2c 20 77 68 | 65 72 65 20 77 65 20 77 |f(x), wh|ere we w|
|00006150| 6f 75 6c 64 20 6c 69 6b | 65 20 74 6f 20 66 69 6e |ould lik|e to fin|
|00006160| 64 20 74 68 65 20 61 72 | 65 61 20 62 65 74 77 65 |d the ar|ea betwe|
|00006170| 65 6e 22 0d 22 d8 51 f1 | 20 22 78 3d 61 2c 20 78 |en".".Q.| "x=a, x|
|00006180| 3d 62 2c 20 74 68 65 20 | 63 75 72 76 65 20 61 6e |=b, the |curve an|
|00006190| 64 20 74 68 65 20 78 2d | 61 78 69 73 2e 20 20 57 |d the x-|axis. W|
|000061a0| 65 20 66 69 6e 64 20 74 | 68 65 20 61 72 65 61 20 |e find t|he area |
|000061b0| 62 79 20 64 69 76 69 64 | 69 6e 67 20 69 74 20 69 |by divid|ing it i|
|000061c0| 6e 74 6f 22 0d 22 e2 30 | f1 8a 33 35 29 22 73 74 |nto".".0|..35)"st|
|000061d0| 72 69 70 73 2e 20 20 57 | 65 20 63 6f 6e 73 69 64 |rips. W|e consid|
|000061e0| 65 72 20 74 68 65 20 73 | 74 72 69 70 73 20 74 6f |er the s|trips to|
|000061f0| 20 62 65 22 0d 22 ec 3c | f1 8a 33 35 29 22 61 70 | be".".<|..35)"ap|
|00006200| 70 72 6f 78 69 6d 61 74 | 65 20 72 65 63 74 61 6e |proximat|e rectan|
|00006210| 67 6c 65 73 20 6f 66 20 | 77 69 64 74 68 20 22 3b |gles of |width ";|
|00006220| bd 28 64 65 6c 74 61 29 | 3b 22 78 20 61 6e 64 22 |.(delta)|;"x and"|
|00006230| 0d 22 f6 32 f1 8a 33 35 | 29 22 68 65 69 67 68 74 |.".2..35|)"height|
|00006240| 20 79 2e 20 20 48 65 6e | 63 65 20 74 68 65 20 72 | y. Hen|ce the r|
|00006250| 65 63 74 61 6e 67 6c 65 | 20 68 61 73 20 61 72 65 |ectangle| has are|
|00006260| 61 22 0d 23 00 3e f1 8a | 33 35 29 22 79 22 3b bd |a".#.>..|35)"y";.|
|00006270| 28 64 65 6c 74 61 29 3b | 22 78 2e 20 20 54 68 65 |(delta);|"x. The|
|00006280| 20 74 6f 74 61 6c 20 61 | 72 65 61 20 69 73 20 66 | total a|rea is f|
|00006290| 6f 75 6e 64 20 62 79 20 | 73 75 6d 6d 69 6e 67 22 |ound by |summing"|
|000062a0| 0d 23 0a 30 f1 8a 33 35 | 29 22 61 6c 6c 20 73 75 |.#.0..35|)"all su|
|000062b0| 63 68 20 73 74 72 69 70 | 73 20 62 65 74 77 65 65 |ch strip|s betwee|
|000062c0| 6e 20 61 20 61 6e 64 20 | 62 2e 20 20 54 68 65 22 |n a and |b. The"|
|000062d0| 0d 23 14 3d f1 8a 33 35 | 29 22 73 6d 61 6c 6c 65 |.#.=..35|)"smalle|
|000062e0| 72 20 74 68 65 20 77 69 | 64 74 68 2c 20 22 3b bd |r the wi|dth, ";.|
|000062f0| 28 64 65 6c 74 61 29 3b | 22 78 2c 20 74 68 65 20 |(delta);|"x, the |
|00006300| 6d 6f 72 65 20 73 74 72 | 69 70 73 2c 22 0d 23 1e |more str|ips,".#.|
|00006310| 30 f1 8a 33 35 29 22 61 | 6e 64 20 68 65 6e 63 65 |0..35)"a|nd hence|
|00006320| 20 74 68 65 20 6d 6f 72 | 65 20 61 63 63 75 72 61 | the mor|e accura|
|00006330| 74 65 20 74 68 65 20 61 | 72 65 61 2e 22 0d 23 28 |te the a|rea.".#(|
|00006340| 44 f1 8a 33 35 29 22 41 | 73 20 22 3b bd 28 64 65 |D..35)"A|s ";.(de|
|00006350| 6c 74 61 29 3b 22 78 22 | 3b bd 28 74 65 6e 64 73 |lta);"x"|;.(tends|
|00006360| 29 3b 22 30 20 74 68 65 | 20 73 75 6d 20 6f 66 20 |);"0 the| sum of |
|00006370| 74 68 65 20 61 72 65 61 | 73 20 6f 66 20 74 68 65 |the area|s of the|
|00006380| 22 0d 23 32 2f f1 8a 33 | 35 29 22 73 74 72 69 70 |".#2/..3|5)"strip|
|00006390| 73 20 61 70 70 72 6f 61 | 63 68 65 73 20 74 68 65 |s approa|ches the|
|000063a0| 20 72 65 71 75 69 72 65 | 64 20 61 72 65 61 2e 22 | require|d area."|
|000063b0| 0d 23 3c 32 f1 8a 33 35 | 29 22 54 68 65 20 72 65 |.#<2..35|)"The re|
|000063c0| 71 75 69 72 65 64 20 61 | 72 65 61 20 69 73 20 74 |quired a|rea is t|
|000063d0| 68 65 72 65 66 6f 72 65 | 20 67 69 76 65 6e 20 62 |herefore| given b|
|000063e0| 79 22 0d 23 46 3a f1 8a | 33 35 29 22 74 68 65 20 |y".#F:..|35)"the |
|000063f0| 6c 69 6d 69 74 20 6f 66 | 20 74 68 65 20 73 75 6d |limit of| the sum|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
